TRS-80 Model I/I 1 1 



* COBOL USER'S GUIDE 

(RS/CODDL 1. 3) 



December, 1980 



C- 



l 



c 



Important Note for 
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The object modules (described on page 32 of the Use section) are password 
protected and cannot be copied (with COPY) from your system diskette. To 
transfer these modules to another diskette, use BACKUP. 

When you assign a program-name to a COBOL file (refer to page 29 of the 
RSCOBOL section of this manual), you must use standard TRSDOS syntax 
for the program-name. See the File Specification section of your Model III 
owner's manual for specific details. 
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PREFACE 



This document contains the information required to compile, run 
and debug COBOL language programs on the Radio Shack TRS-BO Model 
I/III Microcomputer under the TRSDOS Disk Operating System 

It assumes the reader is familiar with the COBOL Language, the 
general operation of the TRS-BO Model I or Model III 
Microcomputer. and the TRSDOS Operating System. The reader is 
specifically referred to the following publications: 

TRS-80 Model I/III COBOL Language Manual 

TRS-80 Model I Operation Manual 

TRS-BO Model I Disk Operating System Reference Manual 

TRS-BO Model III Disk Operating System Reference Manual 

This guide is organized such that each chapter fully describes a 
particular operational procedure. While the experienced user need 
only refer to the appropriate chapter, it is recommended that the 
first-time user read the complete guide prior to operation of the 
COBOL system. 



PROPRIETARY RIGHTS NOTICE 

TRS-80 Model I/III COBOL (RSCOBOL) is a proprietary product of: 

Ryan-McFarland Corporation 
Software Products Group 
licensed to: 

Tandy Corporation 
One Tandy Center 
Fort Worth, Texas 76102 
<B17) 390-35B3 

The software described in this document is furnished to the user 
under a license for use on a single computer system and may be 
copied (with inclusion of the copyright notice) only in accordance 
with the terms of such license. 

f Copyright 19B0 by Ryan-McFarland Corporation. All rights 

reserved. No part of this publication may be reproduced, stored 
in a retrieval system, or transmitted, in any form or by any 
means, electronic, mechanical, photocopying, recording, or 
otherwise, without the prior written permission of Tandy 
Corporat i on 
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CHAPTER 1 
THE COBOL COMPILER 



1. 1 Compiler Overview 

The COBOL Compiler operates on a 49K byte TRS-BO Model I or Model 
III Microcomputer with at least two disk drive", under the 
appropriate TRSDOS Operating System. <Model I - version 2.3, 
Model III - version 1. 1). 

Once executed, the Compiler makes a single past; on the source 

program, generating object and listing files concurrently. Upon 

completion it reports compilation results on tne display and 
returns control to TRSDOS. 

Compilation always proceeds to the end of the program, regardless 
of the number of source errors found. 

A listing of the program is generated showing the original COBOL 
source statements, error information, data allocation, Interactive 
Debug information and, optionally, a Cross Reference of all 
program labels and data items. This listing can be directed to 
the Console, the Printer and/or a disk file. 

The generated object file is in a form ready for immediate 

£""* execution by the COBOL Runtime. Object code is produced such that 

'***»' an attempt to execute an erroneous statement mill terminate 
execution with an appropriate erroT message 

1 2 Device Assignments 

All communication between the Compiler and the Usi-.m i ■_• through the 
system console. 

During operation, the Compiler will require ijnt- ■< .,i .; r <=• of the 
following devices: 

Display & Keyboard compiler command input *>, compiler ;n,? _ -. ag es 

Disk source. input file 

Disk listing file (optional) 

Disk object file (optional) 

Disk COPY input file (optional) 

Display listing display (optional' 

*.„ Printer listing print (optional) 
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1.3 Executing the Compiler 

Tr compile a COBOL source program- issue the followinq command to 
TRSDOS 

RSCOBOL filespec (options) comment 

wh ere : 

filespec 

is the file specification of the COBOL, source file to be 
compiled! of the form: 

f i 1 ename/ext. password: d 
'filename' is required. 

'/ext' is an optional name-extension When omitted, the 
default '/CDL' is used. 

'.password' is an optional password. Note: If the file 
was created with a nonblank password, '.password' 
becomes a required field. 

' : d ' is an optional drive specification. When omitted, 
the system does an automatic search, starting with drive 
0. 

options *>&? 

allows the user to specify compiler and/or file options 
Each option must be specified as shown below, separated 
by spaces. The left and right parenthesis are required 
if any comments are present. 

When no options are specified, the compiler will 
automatically generate an object file but no listing 
output. 
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1.3. 1 Compiler Source Input 

The Compiler expects the source input to b v a sesiueitial file, 
containing logical records of ASCII text 'Ihp^e logicjl records 
can be either of two forms; 'byte-strEam' or fix p • I ' 

'byte-stream' records consist of a siring of ASCII 
characters) terminated by a carriage-return character. This 
format is typically stored on the disk as one byte records 
<LRL=1). and is the format created by t h *? standard TRSDGS 
ed i tor ( s ) . 

'fixed' records consist of 80 ASCII characters each <LRL=BO), 
and do not contain carriage-return or other special 
characters. 



1.3.2 Compiler Options 



D 



'D' instructs the compiler to compile all COBOL "Debug" 
source lines, identified by a "D" in column 7 This 
allows the user selective compilation of CODOL. source 
statements. 

This option has no relationship to t (. e? CODOL Runtime 
Interactive Debug facility and need r, .» t- oe spe>.i"ied to 
allow such debugging. 

The default is to treat such lines as comirpnt* 



'E' instructs the compiler to generate an 'Ft, jr Only' 
listing instead of a f u i 1 listing r h i <; option is 
effective only when a listing has bern -:• p <- r 2 iP i <i, F 
and/ur T options). 

The listing generated will contain tii. ;,•-».;•> heading 

information. all source lines in f r ;, . i th their 

appropriate undermarks and message ■■ ;> I ■• ; ., ■> U summary 
information. 

The default is not to generate an error l.tii] 
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L L=d 

'L' indicates that the compiler listing is to be written 
to a disk file with the name of the source file and a 
filename-extension of '/LST' The first available disk 
is used. 

Specifying a drive number <L=d) indicates that the 
listing file is to be written to disk 'd'. 

LST files may be displayed using the standard TRSl>OS 
LIST and PRINT utilities. 

The default is not to generate a listing file 

O 0=d O-N 

'D' indictes that the Compiler object output is to be 
written to a disk file with the name of the source file 
and e filename-extension of '/COB'. The first available 
disk is used. 

Specifying a drive number <0=d> indicates that the 
object file is to be written to disk 'd'. When omitted 
the first available disk is used. 

'0=N' indicates that no object file is to be generated 

The default is to generate an object file on the first 
avai lab le disk. 



'P ' indicates that the listing is to be printed on the 
printer. 



The default is not to print the listini 



'T' indicates the listing is to be displayed on the 
system display. 

The default is not to display the listing. 



'X' indicates a cross-reference of COBOL Procedure and 
Data Division names is to be produced. This option is 
effective only when a listing has been specified <L- P 
or T options). — 

The default is not to generate a cross-reference 
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1.3.3 Compiler Messages 

( Messages which report the compiler's status, or its ability to 

^*^ complete the compilation process are repotted on the system 
display as they are detected 

TRS-80 Model I/III COBOL Compiler <RM/CQBOL ver v r ; 

Copyright 1980 by Tandy Corp. Licensed from Ry an-McFar 1 and Corp. 

Indicates that the compiler has been loaded and has begun to 
compile the specified program. 'ver v r' identifies the 
version (v) and revision (r) level of the compiler 

COMPILATION COMPLETE: eeee ERRORS, wwww WARNINGS 

Indicates that the compilation has been completed. The 
values of 'eeee' and 'wuww' indicate the number of errors and 
warnings. respectively. identified in the source program. 
This message is repeated on the listing 

PARAMETER ERROR AT: vvvvvvvv 






C- 



m~< 



Indicates that an unrecoverable error was detected on the 
command to execute the compiler. 'vvvvvvvv' will identify 
the offending field. 

The user should reenter the command with the necessary 
correc ti ons. 



COMPILATION CANCELLED 

Compiler cancelled by user with BREAk key 



MODEL I/III COBDL User's Guide - 5 - (RBulBOL 1 3) 



COMPILER ERROR, NO: nnnn 

which caused the error ° ldentlfles the condiMon 

0001 Pointer overflow 

pointed slZl^ ♦ I" exceed * d internal compxler 
problem stfl? I • t * pr °^ am *" d recompile. If this 
J Jit n ,! X1 f t5 ' separate programs into main 
program with multiple subroutines 

0002 Roll memory overflow 

B!!JnT,K Pr09ram ha5 exceed ^ available work space 
Segment the program and recompile. 

0010 Unable to locate or load a compiler overlau 

Install the RSCBLnvr program overlays as describe in 
the chapter on 'Installation Procedures. ' e5CTlt - d 

0020 Invalid TRSDOS 

TRSDOS^Lr 5 3tte :P ted undeT> an incorrect, version of 
fHSDOS Order correct version of TRSDOS. 



Required TRSDOS versions 

Model I - 2. 3 
Model III -l.i 



are: 



v4KE?| 



0030 Invalid Source Record ^» 

record° mPil u r -5" encounte ™d an invalid source input'**" 
record. Verify records are ASCII text, formatted as 

cirri:g: b re%urn e r 9 or, reC ° rd5 '^ > * — *"-t- «ith a 
carriage retCrn" B ° eh ""*" — ds "-RL-BO) without 
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1. 3. 4 Examp les 

^ RSCDBOL PAYROLL (P X) 

locates and compiles the source pr. grar« PnYftCLL/CEL; 
producing an object file (PAYROLL/COB ) en the fust available 
disk and a listing, with cross-reference, on t h i? printer 

RSCODOL MORTGAGE/SRC: 1 (L=2 D=N) 

compiles the source program MORTGAGE/SRC located on the disk 
in drive 1# producing a listing file (MORTGAGE/LBT) on the 
disk in drive 2. and no object file. 
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3 4 The Program Listing 

The compiler outputs 'source', 'al 1 nra f i nn ' 

listinas if a lief-;,, j =>uurce » allocation , and ' summary 

option,) u h . n fho , v , " ° r flle ls specified (L, F or 1 

listings also^produced. ^^ 15 5 ^ Cified ' ■ 'cross-reference' 

ISdrl-T^ouijrimL. 1 " 01 ^- 1 . a S ^ Uential line number, sentence 
' source image, and interspersed diagnostics 

Inl ^tV^l^^Xl *;:„»;""»• "»• — *„.. 

show the record 5t r ,r ' It! lden * lfier "^mes are indented to 

»■■= iruuFo structure. (The orrip^ n* an :j..iji.. 
number of subscripts it requires) identifier is the 

The summary listina inrlnHoc +-K- t. 

warnings, and thl"! i ^ of^he JrograT^ °* ■"■"" ^ numb " of 

source, and d^J?nlf t *"* numbeT ^ uf each declaration, 

by at Jf t e r°^ reference ' The "". number is surrounded 
reference il * /IT" 15 * decl ^ation; asteriks if the 

nar ' * J ! a P°ssibls modification. References to all 
paragraphs and sections are included. " 5 t0 ali 

In all listings, numbers in decimal are rei 
numbers in hexadecimal are represented as >dd!..d 



In all listings, numbers in decimal are recres^tpH = = aaa a 

number? in hov^w^^,--.-! . K represented as ddd d, 



^n 



14 1 Listing Diagnostics 



?h-i" J ««"Jd V CheCked f ° r SyntaX and "-"tic errors as 
this else text i. ErroTS ™V ««« interruption in scanning In 
resume messaoe i/n ^^IT " nU1 * recovery P°int is found and a 
the amount of Inl'l h * ecove ^ P 01 "** -re chosen to minimize 
messages In anHa e th "'I" "! pr ° ducin 9 irrelevant error 
and error ^gV^ied ^eH^s tlrV. HnT ^ Vin^T^ 



004030 02 STOCK PIC 9(1 6 )PPP COMPUTATIONAL. 
*<■**• 1 )PICTURE *E*E*E«E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 
Indicates a semantic number size error but 

005040 02 PART PIC X(4BX(5) SYNC. 

I'-lll i!^7, A 2 * E * E * E#E * E * E * E * E * E * E * E * E * E *E*E*E*E*E*E#E 
■ ** *>SCAN RESUMt *W«W*IJ#W*W#W*W*W*W^*W*W*W*W#W*W*W 



> 
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indicates a syntax error at the first undermark and a recover at 
the second undermark. 

, The number preceding the error message is the undern.*; k number, 

\^,. counting from left to right. More than one mossaqe ma-j refer to 

the same undermark. 

Global errors such as undefined paragraph iic.rr.es arid illegal 
control transfers are listed with the program summary ai trie end 
of the source listing. 



1.4.2 Diagnostic Messages 

ACCESS CLASH 

Nonsequential access given for sequential file 

BLANK WHEN ZERO 

BLANK WHEN ZERO clause given for nonnumer - : c or group 
i tern. 

CLASS 

The referenced identifier is not valid in a class 
condition. 

COPY 
,■• <»■ COPY statement failed because of peimanent error 

associated with the undermarked file-name 

CORRESPONDING 

The CORRESPONDING phrase cannot he u^J with the 
referenced identifier. 

DATA OVERFLOW 

The data area (working-storage and literals) is larger 
than 65535 bytes in length 

DATA TYPE 

Context does not allow data type- of t.h> referenced 
identifier 

DEVICE CLASH 

Random characteristics given to nonrandom rj e > i r y 

DEVICE TYPE 

OPEN or CLOSE mode inconsistent with device t-jpe 

DOUBLE DECLARATION 

Multiple declaration of a file or identifier ,»t tr i b ute. 

DOUBLE DEFINITION 

Multiple definition of an identifier 



„_V 
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DUPLICATE 



Warning only. Multiple USE procedure declared for same 
function or file. 



FILE DECL ERROR 

The referenced file-name is SELECTed and has an invalid 
or missing file description ( FD ) 

FILE NAME ERROR 

The referenced file-name has an invalid external file 
name declaration. 

FILE NAME REQUIRED 

File name not given as referenced in I/O verb. 

FILE RECORD KEY ERROR 

The referenced file-name has a RECORD KEY which is 
incorrectly qualified or is not defined as a data item 
of the category alphanumeric within a record description 
entry associated with that file name. 

FILE RECORD SIZE ERROR 

The referenced file-name has a declared record size 
which conflicts with the actual data record descriptions 
or is a relative organization file with variable length 
records. 

FILE RELATIVE KEY ERROR 

The referenced file-name has a RELATIVE KEY which is / ^* 
incorrectly qualified. is defined in a record 
description associated with that file-name, or is not 
defined as an unsigned integer. 

FILE STATUS ERROR 

The referenced file-name has a status item which is 
incorrectly qualified, is not defined in the 
WORKING-STORAGE SECTION, or is not a two-character 
alphanumeric item. 

FILE TYPE 

Access or organization of file conflicts with 
undermarked statement. 

FILLER LEVEL 

A non-elementary FILLER item is declared. 

GROUP CLASH 

USAGE or VALUE clause of group member conflicts with 
same clause for group. 



GROUP VALUE CLASH 

Warning Only An item subordinate to a group with the 
VALUE IS clause is described with the SYNCHRONIZED, 
JUSTIFIED, or USAGE (other than USAGE IS DISPLAY) ««** 
c 1 ause 
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IDENTIFIER 

Identifier reference is incorrectly constructed or the 
identifier has an invalid or double definition 

ILLEGAL ALTER 

An ALTfR statement references in unal*--! ■ u ! . paragraph 
or violates the rules of segmentation 

ILLEGAL PERFORM 

A PERFORM statement reference undefined or incorrectly 
qualified paragraph or the reference violates the rules 
of segmentation. 

INVALID ID 

The referenced identifier was not successfully defined. 

INVALID PARAGRAPH 

Context does not allow section name 

JUSTIFY 

JUSTIFY clause given in conflict with other attributes 

KEY REQUIRED 

Relative key not declared for random access relative 
file or record key not declared for indexed file 



LABEL 



LEVEL 



Presence or absence of label record conflicts with 
device standards. 



LINKAGE 



Level-number given is invalid either intrinsically or 
because of position within a group 

An identifier in the USING clause of the PROCEDURE title 
is not a linkage item or a statement references a 
linkage item not subordinate to on identifier in the 
USING clause of the PROCEDURE title. 

LITERAL VALUE 

Literal value given is incorrect in contr-.-. t 

MOVE 

Operands of MOVE verb specify an invalid mcr's? 

MUST BE INTEGER 

Context requires decimal integer. 

MUST BE PROCEDURE 

Context requires procedure name either -i ... reference or 
definition, or the reference must be a n :;r,d ec 1 €.- at i ve 

procedure-name 
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must be: section 

Context requires procedure-name to be section. 

NESTING 

Illegal nesting of condition that is not an IF 
c ond i t i on. 

NOT IN REDEFINE 

VALUE IS clause given in REDEFINES item. 

OCCURS 

OCCURS clause given at invalid level or after three have 
been given for the same item 

OCCURS DEPENDING ERROR 

The referenced object of a DEPENDING phrase has not been 
defined correctly. 

OCCURS -VALUE CLASH 

VALUE IS and OCCURS in effect for the same item. 

PICTURE 

Invalid PICTURE syntax. 

PICTURE-BWZ CLASH 

Zero suppression and BLANK WHEN ZERO cannot be in effect 
for the same item 

PICTURE-USAGE CLASH 

USAGE clause or implied usage conflicts with u s a g e *5S£ 
implied by picture. 

PROCEDURE INDEPENDENCE 

PERFORM given for procedures in independent segments not 
in the current segment. 

PROGRAM OVERFLOW 

The instruction area is larger than 32767 bytes in 
1 ength. 

RECORD KEY 

Record key declared for other than an indexed 
organization file or a START statement KEY phrase 
references a data item not aligned on the declared key's 
leftmost byte. 

RECORD REQUIRED 

Context requires record name. 

REDEFINES 

REDEFINES given within an OCCURS or not redefining the 
last allocated item. 
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REDEFINES ERROR 

The referenced data-name redefines an item which does 
not have the same number of character position, and is 
l^ not level 01. 

REFERENCE INVALID 

Reference given is not valid in context 

RELATION 

Operands of relation test are incompati_le 

RELATIVE KEY 

Relative key declared for other than a relative 
organization file or a START statement KEY pharase 
references a data item other than the declared key 

RESERVED WORD CONFLICT 

A COBOL reserved word or symbol is given where a user 
word is required. In the summary this is only a warning 
about an ANSI COBOL reserved word th^t is not an 
implemented COBOL reserved word. 

SCAN RESUME 

Warning only. Scanning was terminated at previous error 
message and resumes at undermarked character 

SECTION CLASH 

A VALUE IS clause appears in the FILE or i INKAGE 
sec t i on. 

SEGMENT 

_ . Warning only. Segment number given in an independent 

segment is not the same as the current segment or the 

number of a new independent segment Ihe urrent 

segment number is used. 

SEPARATOR 

Warning only. Redundant punctuation r .- a «-- e;.ai ; tor is 
not full owed by the required '=pac e 

SIGN 

SIGN clause given in conflict with us a ye an J pjj-.-re 

SIZE 

Warning only. Size of data referenced nnt correct for 
context 

SIZE ERROR 

r Declared size of record conflicts i i it, present 

<■ — reference. 

SUBSCRIPT 






-A 



Incorrect number of subscript?. ,. i.- a .< - ■• f Pl . 
reference. 
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SYNC 

Synchronized clause given for a group item 

SVNTAX 

Incorrect character or reserved word given for context 

UNDEFINED 

File referenced in FD entry was not defined 

UNDEFINED DECLARATIVE PROCEDURE 

A declarative statement references a procedure not 
defined within the DECLARATIVES. 

UNDEFINED PROCEDURE 

A GO TO statement references an undefined or incorrectly 
qualified paragraph. 

USE REQUIRED 

A DECLARATIVES section must begin with a USE statement 

USING COUNT 

Warning only. The ittm count in the USING list of a 
CALL statement is different from that of the first 
reference to the same program name. 

VALUE ERROR 

Value given in VALUE IS required truncation of nonzero 
digits. 

VALUE '*•<- 

VALUE IS clause given in conflict with other declared 
attributes. 

VARIABLE RECORD 

Earning only. The INTO phrase is not allowed with 
variable size records. 



> 



9 



MODEL I/I I I COBOL User's Guide - i4 - (RSCOBOL 1.3) 



c 



CHAPTER 2 
THE COBOL RUNTIME 



2. 1 Runtime Overview 

The COBOL runtime operates on a 48K byte TRS-BO Model I or Model 
III Microcomputer with at least two disk drive? under the 
appropriate TRSDOS Operating System. (Model I - version 2.3, 
Model III - version 1.1). 

Once invoked, the runtime loads and executes the compiled object 
program, automatically loading any required segments. 
Concurrently, it allocates memory for file buffers, and CALLed 
COBOL and Assembly Language subprograms. Upon completion 
appropriate messages are displayed and control is returned to the 
operating system. 



2.2 Device Assignments 

All communication between Runtime and the User is through the 
keyboard and display. 

•v-'i. During operation the Runtime will require one or more of the 
.C_7 following devices: 

Keyboard & Display runtime command input. Interactive Debug 

command input, and runtime messages 

Keyboard S< Display ACCEPT and DISPLAY, and Interactive Dsbug 

d i sp lay . 

Printer PRINT output, if required 

NOTE: For PRINT output, th» d e ■ l , ? name 
"PRINTER" must be speritie-i in the 
SELECT statement; i e. 

SELECT filename, ASSIGN tc PRINI, "PRINTER" 



.A 
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2 3 Executing the Compiled Prograr 

ii::z u \: ™ 8D sr iud CDB0L ubject pr ° 9ra - i£6ue '^ f * i; —" 

RUNCOBDL filespec (options) comment 

where 

f i 1 espec 

is the specification of the compiled COBOL object file 
to be executed of the form: 

filename/ext. password. d 
'filename' is required. 

l io!I t iV!/rn„, 0ptional name-extension. When omitted the 
default '/COB' is used. 

'password' is an optional password. Note If the file 
was created with a nonblank password, '.password' 

Becomes a required field. 

':d' is an optional drive specification. When omitted 
the system does an automatic search, starting with drive 



options 



allows the user to specify runtime options. Each option 
must be specifjed as shown below, separated by spaces, 
ine left and right parenthesis are required if ang 
comments are present. 

When no options are specified, the runtime will execute 
the User's program without Interactive Debug, with all 
switches set to 0, using all of available memory. 



•"•V 
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2.3. 1 Runtime Options 



L D 

> ^"' 'D' invokes the RSCODOL Interactive Dehu:| um'nage See 

RSCODOL Interactive Ijnbug d i sc •• ;s i on t;..-low, for 
operating instructions 

The default is not to invoke Interactive Dshug 



,£ 



C— 



,1. 



S=nn. . n 



T=hhhh 



'S' sets (or resets) the value of SW I IT. HITS in the COBOL 
program 

Each 'n' is a switch value. for off, t for on, 
numbered 1 to B» left to right. Trailing zeroes need 
not be specified. 

The default is to set all switches off <0; 



'T' sets the top of available memory to a value 
different from the highest available address This is 
used to protect assembly language user subroutines, all 
of which must be created to load above ti.e hexadecimal 
address 'hhhh'. 

The default is to use all available memory 



2.3.2 Runtime Messages 

Messages which report the runtime's status, ot its ability to 
execute the COBOL program, are repoi ted on the -i'jttnii display as 
they are detected. 

TRS-80 Model I/III COBOL Runtime (RM/CliBOL ver .■ > ' 

Copyright 19B0 by Tandy Corp. Licensed from Ry an Ml.! ', i x ,.id Corp 

Indicates that the runtime has been loaded anri nan begun tc 
execute the specified program 'ver v r identifies the 
version (v) and revision <r) level of the runtime 
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COBOL. ETGP RUN AT xxyyyy IN nnnnnn 

T f. i s is the normal termination message of a progra 



m. 



rxyyyy' identifies the overlay <xx) and statement address 
(yyyy) where the program terminated. 'nnnnnn' are the first 
six characters of the PROGRAM-ID. 

If Debug was invoked on the command line, an 'S' Debig __ 
command may be used to cause Debug to exit to the operating 
sy stem. 

COBOL STOP literal AT xxyyyy IN nnnnnn 
CONTINUE <Y/N>? 

This message indicates that a STOP ' 1 i tera 1 ', statement has 
been encountered. 'xxyyyy' identifies the overlay (n) and 
statement address <yyyy) where the program terminated 
'nnninn' are the first six characters of the PROGRAM-ID 

Responding with a 'Y' will be the equivalent of a "pause" 
statement, returning control to the next COBOL statement. 

An 'N' response will cause all program files to be closed and 
ccntrol will be returned to the operating system. 

2. 3. 3 Examples ***** 

RUNCOBOL PAYROLL <S=1011> 

locates, loads, and executes the compiled COBOL program 
PAYROLL/COB; and sets the value of SWITCHES 1, 3, and 4 'on', 
all others 'off'. 

RUNCOBOL MORTGAGE/TST: 2 <D) 

loads, the compiled COBOL program MORTGAGE/TST from drive 2 
along with the Interactive Debug package. Control is passed 
directly to Debug. 

RUNTIME ERROR, NO: nnnn 

an internal error has occurred which prevents continued 
execution. The value of 'nnnn' identifies the condition 
which caused the error 

OC 10 Unable to locate or load User Debug. 

Install RSCBLDvr as described in the chapter on /"^ 
'Installation Procedures'. ) y 
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0020 Invalid TRSDOS 

Execution was attempted under an incorrect version of 
TRSDOS Order correct version of TRSDOS 

Required TRSDOS versions are: 

Model I - 1. 1 
Model III - 2. 3 

2.4 Runtime Diagnostics 

Diagnostic messages are display if an internal error occurs, or if 
an I/O error occurs that was not. or could not, be processed by an 
appropriate USE procedure. 

If Debug was invoked. Debug will be entered to allow examination 
of program data values; otherwise, control will return to the 
operating system. 

COBOL error AT xxyyyy IN nnnnnn 

Indicates an internal error condition has occurred, where 
'error' identifies the error condition. 'xxyyyy' identifies 
the overlay (xx) and statement address (yyyy) where the 
program terminated. 'nnnnnn' are the first six chmacters of 
the PROGRAM-ID. 

COBOL filename 10 ERROR = cc AT xxyyyy IN nnnnnn 

Identifies that an abnormal I/O condition, 'cc' has caused 
the program to be aborted. 'xxyyyy' identifier the overlay 
<xx) and statement address (yyyy) where thp program 
terminated 'nnnnnn' are the first 6 character-, of the 
PROGRAM-ID 

The I/O error 'cc' has a different mean in, depending on 
whether the file's organization is sequential relative or 
indexed. 

Sequential Files: 

10 AT END. 
f The sequential READ statement was unsuccessfully executed 

as a result of an attempt to read a rei.u»ii when no next 
logical record exists in the file 






< 



MODEL I /III COBOL User's Guide - 19 - •, ^B-ODOL 1 3) 



30 PERMANENT ERROR. 

The input-output statement was unsuccessfully executed as 
the result of an input-output error, such as data checl 
parity error, or transmission error. May also indicate 
attempted execution of an instruction not' inplpmented in 
the runtime (REWRITE to a variable length record JVLR) 
file; CLOSE REEL). May also indicate that no more space 
is available on the disk. 

3'1 PERMANENT ERROR BOUNDARY VIOLATION. 

The input-output statement was unsuccessfully executed as 
the result of a boundary violation for a sequential file 

90 INVALID OPERATION. 

An attempt has been made to execute a READ, WRITE, or 
REWRITE statement that conflicts with the current open 
mode or a REWRITE statement was not preceded by a 
successful READ statement. 

91 FILE NOT OPENED. 

An attempt has been made to execute a DELETE, READ, 
START, UNLOCK, WRITE, REWRITE or CLOSE statement on a 
file which is not currently open. 

92 FILE NOT CLOSED. 

An attempt has been made to execute an OPEN statement on 
a file which is currently open. 



93 FILE NOT AVAILABLE. 

An attempt has been made to execute an OPEN statement for 
a file closed with LOCK. 

94 ' INVALID OPEN. 

An attempt has been made to execute an OPEN statement for 
a file with no external correspondence or a file having 
inconsistent parameters. 

95 INVALID DEVICE. 

An attempt has been made to execute a CLOSE REEL 
statement, or to execute an OPEN statement for a file 
which is assigned to a device in conflict with the 
externally assigned device. Valid combinations are: 



Program Assignment 
RANDOM 
INPUT 
OUTPUT 
PRINT 
INPUT-OUTPUT 



External Assignment 
Disk 
Disk 
Disk 

Disk, line printer 
Disk 



"V 






~) , 
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96 UNDEFINED CURRENT RECORD POINTER STATUS 
An attempt has been made to execute a READ statement 
after the occurrence of an unsuccessful READ statement 
without an intervening successful CLOSE and Of EN 

97 INVALID RECORD LENGTH. 
An attempt has been made to execute a PEl-JRITL statement 
when the new record length is different from that of the 
record to be rewritten, or to OPEN a file that was 
defined with a maximum record length different from the 
externally defined maximum record length, or to execute a 
WRITE statement that specifies a record with a length 
smaller than the minimum or larger than the maximum 
record size. 

Relative and Indexed Files: 

10 AT END. 

The Format 1 READ statement was unsuccessfully executed 
as a result of an attempt to read a record when no next 
logical record exists in the file 

21 SEQUENCE ERROR FOR A SEQUENTIALLY ACCESSED INDEXED FILE. 
The ascending sequence requirement of successive record 
key values has been violated or the record key value has 
been changed by the COBOL program between the successful 
execution of a READ statement and the execution of the 
next REWRITE statement for that file 

22 DUPLICATE KEY VALUE. 

An attempt has been made to WRITE a record that would 
create a duplicate key on a file that does not allow 
dup 1 i cates. 

23 NO RECORD FOUND. 

An attempt has been made to access a reccn. identified 
by a key, and that record does not exist , * t< e file 

24 BOUNDARY VIOLATION. 

An attempt has been made to WRI'fc ;rj.,ui the 
externally-defined boundaries of a file 

30 PERMANENT ERROR. 

The input-output "statement was unsuccessfully eccuted as 
the result of an input-output error, such =; da ha check, 
parity error, or transmission error M-iy -lisc indicate 
that no more space is available on the d i ■_ k 

90 INVALID OPERATION. 

An attempt has been made to execute 3 DELETE, READ, 
REWRITE, START, or WRITE statement which mnfiiccs with 
the current open mode of the file or a seq;,i nt : U 1 access 
DELETE or REWRITE statement n-vt preceded b-\ ■■-■ , n •- ■ r. « s s f u 1 
^ read statement. 
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91 FILE NOT OPENED. 

An attempt has been made to execute a CLOSE, DELETE, 



READ. REWRITE, START, UNLOCK, or WRITE statement en 
file whiLh is not in an open mode. 



a 



?2 TILE NOT CLOSED 

An attempt has been made to execute an OPEN statement on 
a vile that is currently open. 

°3 FILE NOT AVAILABLE. 

An attempt has been made to execute an OPEN statement on 
a file closed with LOCK. 

94 INVALID OPEN. 

An attempt has been made to execute an OPEN statement for 
a tile with no external correspondence or a file having 
inconsistent parameters. 

?5 INVALID DEVICE 

An attempt has been made to execute an OPEN statement on 
a file whose device description conflicts with the 
externally assigned device. The device must be RANDOM 
and „he external correspondence must be a disk. 

96 UNDEFINED CURRENT RECORD POINTER. 

An attempt has been made to execute a Format 1 READ 
statement when the current record pointer has an 
undefined state. This can occur only as the result of a 
preceding unsuccessful READ or START statement. ,"> 

97 INVALID RECORD LENGTH. 
An attempt has been made to execute a REWRITE statement 

. and the new record length is different from that of the 
record to be rewritten, or to OPEN a file that was 
defined with a maximum record length different from the 
TiDTTc naily deflned maximum record length, or to execute a 
WRITE statement that specifies a record with a length 
smaller than the minimum or larger than the maximum 
tec or d size. 

^fi INVALID INDEX 

An input-output statement on an indexed organization file 
was unsuccessful as a result of invalid data in the 
index. This can result if the externally assigned file 
is not an index organization file or if an undetected 
input-output error has occurred. 



/"ey 



> 
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2.5 File System Considerations 

Three types of files are supported by the CflDJl. ft ;n time 
sequential. relative (random). and indexed sequent' el These 
files exist on the disk as standard TRSDOS dish * 1 1 c s wrule the 
user will not typically need file information to uxt-cute COBOL 
programs, he is referred to the Technical Information Pection of 
the Disk Operating System Reference Manual if further information 
i s desired. 

Files are specified in the user's program 'It ..LEG J statement 
according to rules for the TRSDOS filespec. of the firm 



where: 



f i lename/ex t. password: d 

'filename' is required. 

'/ext' is an optional name-ex tensi mi 

'.password' is an optional password Note If the file 
was created with a nonblank password, ' password' 
becomes a required field. 

';d' is an optional drive specification When omitted 
the system does an automatic search, staiting with drive 
0. 



2.5.1 COBOL Sequential Files 

COBOL sequential files consist of a serially arcessible set of 
'logical' records. These 'logical' records can e ■. i <> t on the disk 
in either of two forms; 'variable' or 'fixed' 

'variable' records are identified in the File Dvsi i ipi ijr Entry 
(FD) by specifying "RECORD CONTAINS n ro m CHARAC 1 1 R3 * 'fixed' 
records are identified by specifying RECORD •'liiirAIfJS n 
CHARACTERS". The user is cautioned to maintain a ■ onsistent 
specification among all programs referring to the san -r file 

'variable' records contain a one byte length Meld =i t the 
beginning of each record, followed by the actual data b y t l- => The 
record length can vary from record to record Th : ; ?,pcu r iil length 
f byte indicates the entire length of the record, including the 

length byte. This can be any value from 2 to 255 i !; i s format is 
stored on the disk as one byte records <LRL=i) 

'fixed' records are all of the same length £.nd i • :■• t Lontam a 
length byte These files exist ■ ■n the disk as stands' : TRSDOS 
w v - fixed length records, of length (LRL~) 1 to 255 c ha i ,d< t > r ■> 
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2 5 2 COBOL Relative Tiler, 

COBOL Telative files are addressable randomly by 'logical' record 
number These files exist on the disk as fixed length records 

COBOL relative file 'logical' records are internally formatted, 
and ran be created and/or accessed only by COBOL programs. Each 
'logical' record can have a maximum length of 253 bytes. 

CODO!. relative files are dynamically allocated or extended as 
required b g TRSDOS 



2 5 Vt .'.ODOL Indexed Filer, 

COBOL indexed files are created and maintained by the COBOL 
runtime; implemented on the disk using TRSDOS fixed length records 

of 256 bytes. 

COBOL indexed files are internally formatted, and can be created 
and/or accessed only by COBOL programs. Each 'logical' record -an 
have a maximum length of 4096 bytes. 

Indexed files contain an index structure for each key specified "^ 
interspersed with the data records. The use of ALTERNATE KEYS can 
cause a geometric increase in the time required to create the 
file; however, access time will be relatively constant throughout 
the f i ] e. 

COBOL indexed files are dynamically allocated or extended as 
required by TRSDOS _ The calculation below provides an 
approximation for the file space required for a given file: 

NRECS = Int <<S + 33)/32) * R / 8 

+ <R * 2) / Int <252/<Kn+B>> for each key 
+ ' R * D) ' 8 if duplicates 



where 



R = maximum number of records desired 

S = size of records (in bytes) 

Kn = size of Kn <in bytes) 

D = number of keys that allow duplicates 
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2.5.4 COBOL Label Processing 

The COBOL language allows the specification of the existance. and 
processingi of Label records on file type devices 

TRSD03 provides automatic ma in tenant <? and validation of file 
specifications by name and file type. No additional Label 
processing is performed unique to COBOL programs or iiles 

References to Label processing in the file description entry (FD)< 
OPEN statementi and CLOSE statement. are checked for correct 
syntax by the compiler. They are largely ignored bg the runtime 
except that appropriate error codes will be returned/ and any 
applicable USE procedures will be executed 

2. h Runtime Memory Usage 

The TRSDOS Operating System occupies lower memory from location 
OOOOH to 05200H. The COBOL Runtime is loaded starting at 05200H. 
The remaining memory is allocated as follows 

The main COBOL object program is loaded immediately behind 
the COBOL Runtime. Space for COBOL overlays (SECTIONS 
greater than 50) are included in this area. 

Additional COBOL programs are loaded behind this main program 
as they are CALLed (See the CALL statement below) 

Assembly Language programs are loaded in h i g h memory at the 
address they were assigned at 'DUMP' time :See Runtime 
'T=hhhh' option). 

File buffers are dynamically allocated from hiqh memory 
downward. when OPENed. deallocated (space recovered For use 
by other files) when CLOSEd 
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CHAPTER 3 
INTERACTIVE DEBUG 



3 1 Debug Overview 



specif 6 D ! bU9 i5 "«n.mic.llg loaded when the user 

Jive- co,%rn? a ° P ° n the RUNC0D0L statement Debug Is then 
give., control and supervises the execution of the user's r 



s program 



re^rinn V L?n! US ♦ J* ^* 6 directl y behind COBOL Runt:me, 
requiring approximately 1000 bytes. 



'3 2 U-,f. Interaction and Display 

All Debug commands, and all tochI f -,,,*■ j • 1 

system console. resultant displays, are through the 

Debug win request command input by a prompt of the form 
nnnnnn xxyyyy 

ihTnv*r?!!r n ' ^^ '^ flr5t 6 ch ^acters of PROGRAM-ID, '„' is 

". e ;:;: a ;; ; yyy ?; ; 5 th * »»«-d.ci..i location „,*».; 

penned overlay that will be executed next, 
source listing for program 'nnnnnn'. 



ttf>|iiiit 



g 



•3 3 Dt-b-jg Commands 




correct d ed°?nn nd . S ^l' "* re J ected -ith 'ERROR' displayed; 

corrected input will be requested with a reprompt P " 



ACxxTyyyyt, nnnnnn] Address stop 

lotion ° b ' ,eC ' . in5iruction5 ^r.til overlay number 'xx' and 

u.1 1 reoa^n'rn /", program nnnnnn is to be executed. Debug 

=ie ifled ennn, . lmmedlately pri ° r to the "•cuticn of the 

-pecified COBOL sentence, and request further command input. 
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If xx' is specified. 'yyyy' must be fully four hexadecimal 

digits; if 'xx' is not specified, then leading zeros are not 

/ required for 'yyyy'. If 'nnnnnn ' is omitted, it is assumed 

>w to be the first six characters of the P r,:g- 3m .j d of thp 

currently executing program 

SCn3 Single step sentence. 

Execute 'n ' COBOL sentences and return to the uehun monitor. 

The decimal argument 'n ' specifies the number o '-' COBOL 
sentences to be executed before returning the Debug 

Dxxxx, yyyyC, ttttD Dump by type. 

Display the COBOL data item starting at hexadecimal location 
xxxx of decimal length 'y.jyy' and type 'tttt' The values 
for 'xxxx', 'yyyy', and 'tttt' are directly f , jm the first 
three columns of the allocation map. 'tttt' m*n b- one of 
the following: 

NSU NPS 

NSS ABS 

NCU ANS 

NCS ORP 

^ NBS ANSE 

^A_ NS E HEX (hexadecimal) 

Dump Display has the format: 

xxxx tttt dddd. . . . 

where dddd = data in the specified format 

Note: Only items in the currently executing program can be 
displayed. This does not include linkage items 

G Quit Execution 

Terminate Debug and force an immediate STOP RUN Enter 'S' 
to return to TRSDOS. 

E Exit 

C— E *it the Debugger. Continue normal execution as if the 

debugger had not been invoked on the command lino 



_X 
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CHAPTER 4 
SYSTEM CONSIDERATIONS 

4 1 The ACCEPT and DISPLAY Statements 

The ACCEPT and DISPLAY statements support the transfer of data 
between the keyboard and display and the User's program data area 
These statements allow the specification of general phrases which 
may not be supported on every CRT. 

Phrases which are not supported will compile correctly, but will 
be ignored at runtime, causing no operation to take place The 
phrases which are not supported are: 

ACCEPT. . . HIGH, LOW, BLINK. 

DISPLAY HIGH, LOW, BLINK, BEEP. 

The ON EXCEPTION phrase of the ACCEPT statement is executed when 

•?n invalid character is entered. Invalid characters include the 
valid control characters (CNTR/n) below 020H, and non-ASCII 
characters above and including OBOH. 

When an invalid character is entered, its ASCI equivalent is 
placed in the specified data-name and the ON EXCEPTION phrase is 
executed. To determine which control character was entered, ^^5 
define the data-name as USAGE COMPUTATIONAL- 1 and compare for its 
ASCII value. 

Certain keijs affect the operation of the ACCEPT statement, 
including 

Erases the current character and moves the 
cursor back one position. 

CLEAR Backspace to the beginning of the field, 

erasing all characters in the field. 



a^^' 
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4.2 The CALL Statement 



L 



4 *ma« 



When 'CALLed' the first time, COBOL and Assembly Lan r .j (] P -rog-am 
are loaded by Runtime and entered at their initi.i location 
These 'called' programs remain in memory as 1i,ihi -i <■. Hi ,- 'calling 
program is active,- i.e., has notEXITed. Therefore, subsequen 
CALLs from the 'calling' program will enter the 'called' prograt 
directly, without requiring the 'called' program to ba reloaded. 

Once the 'calling' program has EXITed, all related 'called 
programs are discarded and will be reloaded if subsequently CALLec 
by any program, including the previous 'calling' program 
Regardless of the sequence of 'called' and 'calling' programs, all 
related files not explicitly closed are forced 
interface upon EXIT from a given 'called' program. 



c 1 osed by tht 



COBOL programs 
compiled. The 
CALL statement 



that are to be CALLed must have been previously 
default filename-extension for a program name in e 
is '/COB'. A compiled COBOL program will have the 

required extension. If the extension used is not '/COD' , then it 

must be specified in the CALL statement. 



Assembly language programs that are to be CALLed must be in TRSDOE 
LOAD command format as created by DUMP, with a filename, extension 
other than '/COB'. Assembly language programs must reside in high 
memory, and the 'T=nnnn ' option must be specified on th« Runtime 
command line to protect all memory required by the routine The 
user is responsible for ensuring that the assemble! programs dc 
not interfere with each other 

Assembly language programs are loaded and reused while the 
'calling' program resides in memory. If the CODOl. 'calling' 
program is reloaded in memory, then the assembler program will 
again be reloaded when it is called. 



At entry time to an assembly-language routine registev 
to the parameter list defined by the USING clause of 
statement. The first word on the list contai: 
bytes in the list. Subsequent words are addresses uf 
arguments: eg, if the length word specifies i> bytes. 
addresses following the length word For example 



\ he 



IX points 
the CALL 
number of 
the USING 
there are 2 



(IX) => DW Argument List Length 
DW USING Argument 1 
DW USING Argument 2 



(n 



) 



£1. 



DW USING Argument n 

The format of each argument depends on its dataname PICTURE 
definition; see the COBOL Language Manual, 'the PICTURE CI, 



. a u s e 



At exit time fiom an assembler routine, reyist- 
non-zero to request a STOP RUN 



be s e L 
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3 The COPY Statement 



ii- wurr statement provides +k c-,~;i -a. 

ource text from a user-spec i Med f " 1° C ° Py (incl ^e) CODOL 
he complete file is copieS nto Jh lnt0 the 5 ° UrCe Program, 
he location of the COPY statement pr °9 ram ' without change, at 

tatement* "' C ° Pled * 5 iden tif ied in the COBOL program by the 



COPY filename 



or 



COPY "filename/ext. 



password : d " 



wh ere 



'filename' is required. 

-. / JiuiV'/;sL: o ;."u o ::j.'""— " tmBi » n - when ■«»*■« «. 



password ' is an 
was creat 
becomes a 



': d ' is 

t f ■ e s y s 
0. 



is an optional password. Note: If the file 
*d with a nonbl.nk password, ' password 
required field. ' P a5SU,ora 

t e r/ Pti ° nal driVB s P«ification. When omitted £& 
tern does an automatic search, starting wUh drive tS? 



usToT^terTcan 9 ^written^ 'I" ^^ <fi ' 5t ^-cter 
ther forms must b e^^^:;:; ^ y "^^ 5 ™ d *"» *uot... All 



ismp les : 



IDENTIFICATION DIVISION 

COPY STDID. 
ENVIRONMENT DIVISION. 

COPY M STDENVIR/TST" 
DATA DIVISION 

COPY "STDDATA/CBL: 1". 
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4.4 The WRITE. .. ADVANCING ZERO. .. Statement 

The sequential WRITE statement allows control of the vertica 
positioning of each line on the printed page with the ADVANCIN< 
phrase. 

The ... ADVANCING ZERO LlNE(s) ... phrase allows overprinting o* 
those print devices which support this feature. In all cases, th 
phrase mill compile correctly. but may operate as thouol 
...ADVANCING 1 LINE... was specified. 

Standard Radio Shack Line Printers automatical n| advance aftei 
each line is printed. Therefore, the ...ADVANCING ZERO LINES 
phrase will execute as ... ADVANCING 1 LINE. The Compiler am 
Runtime defaults to standard Radio Shack Line Pnntei operation 



*:'u 
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CHAPTER 5 
INSTALLATION PROCEDURES 



Installation of RSCODOL requires only that the object modules be 
copied from the Development and Runtime factory release diskettes 
to the appropriate user diskette. NOTE: 'nn ' indicates the 
current release level, i.e., release 1.3 will be '13'. 

T^e modules required to compile COBOL programs are: 

RSCOBOL 
RSCBL2nn/0BJ 
RSCBL3nn/0BJ 
RSCBL4nn/0BJ 

The modules required to execute compiled COBOL programs are: 

RUNCOBOL 
RSCBLDnn/OBJ 

As with all Development and Runtime factory release diskettes, the 
user should save it in a secure location in case re-creation is 
required 



■;„<» 



/"-^ 
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APPENDIX A 
SAMPLE PROGRAMS 
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Model I/IJJ CoD.Ol. (RM/COBOL 1.3A) 10/H1/B0 00:15:44 PAGE 

RCE FIIF: r A l ( XMIM OPTION LIST: (P,T, 0=2,7 



DEBUG PG/| tj A 



IDEM IT I cat I on division. 

! ROGRAM-ID. 

CALCULATOR. 

ENVIRONMENT DIVISION. 
CONF I CURAT I ON SECT I ON . 
EOURCE- COMPUTER. RMC. 
OBJECT --COMPUTER. RMC. 

DATA DIVISION. 
WORKING-STORAGE SECTION. 

'/ PLGULT PICTURE S9(9)V9<9) VALUE 7 FRO. 

77 OPERAND- I PICTURE S9(9)V9(9). 

// "DERAND- 2 PICTURE S c -> < 9 ) V9 ( 9 ) . 

// WAIT- CHAR PICTURE X. 

01 GREETING. 

0:; FILLER PICTURE X( IB) 

VALUE "CALCULATOR PROGRAM". 
01 OPERATION-MESSAGE. 

02 FILLER PICTURE X < 37 ) 

VALUE "CHOOSE YOUR OPERATION (+,-,*,/) = 
01 OPERATOR PICTURE X(2). 

01 RESULT -MESSAGE. 

0? F I LI E R P I CTURE X < 1 2 ) "**' 

VALUE "RESULT IS = ". 
02 RESULT-EDITED PICTURE -(9)9.9(9). 
02 FILLER PIC X<4) VALUE SPACES. 

02 OVERFLOW-FIELD PIC X(B) VALUE SPACES. 
01 WAIT-MESSAGE. 

02 FILLER PICTURE X ( 36 ) 

VALUE "HIT NEWLINE TO CONTINUE <Q TO QUIT) ". 
01 PE RAND- 1- MESSAGE. 

02 FILLER PICTURE X<12) 

VALUE " OPERAND- 1 = ". 
01- OPERAND-2-MESSAGE. 

02 FILLER PICTURE X(12) 

VALUE "OPERAND-2 = ". 
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TRS-B0 Model 
SOURCE FILE: 



I/III COBOL 
CALCXMPL 



<RM/ COBOL 1.3A) 



10/31/00 00:15:44 PAGE 



OPTION LIST: (P, I, o -.., 



L 1NE 


DEBUG 


^-3B 
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40 


>0000 


41 


>0000 


42 


>0000 


43 


>0004 


44 


>0004 


45 


>000C 


46 


>0014 


47 


>001C 


48 


>0024 


49 


>002C 


50 


>0034 


51 


>003C 


52 


>003E 


53 


>003E 


54 


>0042 


55 


>0046 


56 


>004A 


57 


>0050 


58 


>0050 


59 


>0054 


60 


>005C 


61 


>0064 


£2^ 


>0066 


L-3 


;0066 


64 


>006C 


fa5 




66 


; 0078 


67 


>007C 


68 


>008h 


69 


>00B8 


70 




71 


^0094 


72 


;009B 


73 


> 00A2 


74 


• 00A2 


7 Li 


00A6 


76 


; 00A6 



' EJECT 
PROCEDURE DIVISION. 
RESIDENT SECTION 1. 
NOT- START. 

GO TO DISPLAY-GREETING. 
RE-TRY. 

DISPLAY OPERATION-MESSAGE, LINE 2, I RABf . 

ACCEPT OPERATOR, POSITION 0, PROMPT, ECU* 



GO 
GO 
GO 
GO 
GO 



TO 
TO 
TO 
TO 
TO 



ADDITION. 
SUBTRACTION. 
MULT I PLICA I ION, 
DIVI-SION. 
END-RUN. 



IF OPERATOR EQUAL " + 
IF OPERATOR EQUAL "- 
IF OPERATOR EQUAL "* 
IF OPERATOR EQUAL "/ 
IF OPERATOR EQUAL "Q 
GO TO RE-TRY. 
DISPLAY-RESULT. 

MOVE RESULT TO RESULT-EDITED. 
DISPLAY RESULT-MESSAGE. 
MOVE ZERO TO RESULT. 
MOVE SPACES TO OVERFLOW-FIELD. 
WAIT-ENTRY. 

DISPLAY WAIT-MESSAGE. 
ACCEPT WAIT-CHAR, POSITION 
IF WAIT- CHAR EQUAL "Q» GO 
GO TO RE-TRY. 
GET-OPERANDS. 

D I SPLAY OPE RAND- 1 - MESSAGE , 
ACCEPT OPERAND- 1, LINE 4, 

PROMPT, CONVERT. 
MOVE OPERAND-1 TO RESULT- EDIT ED. 
DISPLAY RESULT-EDITED, LINE 4, PuETlIu 
DISPLAY OPERAND-2- MESSAGE. 
ACCEPT OPERAND-2 , LINE 5, POSITION j^ 

PROMPT, CONVERT. 
MOVE OPERAND-2 TO RESUl 
DISPLAY RESULT-EDITED, 
END-RUN. 

EXIT PROGRAM. 



0, 
TO 



PROMPT, ECHU 
END- RUN. 



line; 4. 

POBI I ION 



1 



i\ lO' 



10, 



T- EDITE I). 

LINE 5, f'Oni | i 0! 



STOP- 



RUN. 
ITOP RUN. 



c 



X 



35 



:i-B0 Mock-1 

JROE FILL : 



I / ] I I COBOL ( RM/ COEP.CU 1 . 3 A ) 

(J A I C'MPI 



10/31/B0 00:15:44 PAG r 
OPTION LIST: <PiT>0"2» X 



PLBUG [••• /I N A. . . P 



77 

~ 7 B>0100AB 
79; 01 00 AB 

_|0>0100AB 

31>0100AA 

32 

B3>0100Bfi 

34 

35>0200AB 

36';0200AB 

37 ■ 0200AB 

3B,:0200AA 

39 

p D : 02R0BU 
VI 

V2 : 0300AB 
73- 0300 AB 
74>0300AB 
?5>0300AA 

>>6 

?7>03B13BB 

?8 

'9 -0400AB 

30; 04 00 AS 

51/0400AB 

52 : 0400AA 

33 

34V0400BA 

35 

56>0500AB 
37>0500AB 
1B>05O0AB 
39 > 05 00 AC 



1 



F.IIK I 

<>VE Rl AY- ADDITION SECTION 51. 
ADDITION. 

PERFORM GLT -OPE RANDS. 

ADD OPERAND- 1 OPERAND-2 GIVING RESULT 

ON SIZE ERROR MOVE "OVERBLOW" TO OVERF L f>W- F I E L D 

G" TO DISPLAY -RESULT. 

OVt Rl AY- SUBTRACT ION SECTION 5^ 
SUBTRACTION. 

PERFORM (,FT OPERANDS. 

SUBTRACT OPLRAND-2 FROM OPERAND- 1 GIVING RESULT 

ON SIZE ERROR MOVE "OVERFLOW" TO OVERF LOW- F I EL D 

GO TO DFHPI. A> -RESULT. 

"VEHl AY- MULTIPLICATION SECTION 5"*. 
MULTIPLICATION. 

PERFORM GET- OPERANDS. 

MULTIPLY OPERAND- 1 BY OPERAND-2 GIVING RESULT 

ON SIZE ERROR MOVE "OVERFLOW" TO OVFRFLOW- F I ELr> 

GO TO DISPLAY-RESULT. " n - nrU " W ritu - • 

OVERLAY-DIVISION SECTION 54. 
I) I VI -SI ON. 

PE RF ORM GET - OPERANDS. 

DIVIDE OPERAND-1 BY OPERAND-2 GIVING RESULT ROUNDED 

rr, -r* JHlf~ ERR0R M0VE "OVERFLOW" TO OVERFLOW-FIELD. 
GO TO DISPLAY-RESULT. 

OVERLAY-DISPLAY- GREETING SECTION 9B 
DISPLAY -GREETING. 

DISPLAY GRFETING. 

(50 TO WAIT-ENTRY. 

I ND PROGRAM. 



^^fi^^t 
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TRS-80 Model I/III COBOL. (RM/COBOL 1.3A) 10/31/H0 0p:r,:v» 

SOURCE FILE: CALCXMPL OPTION LIST: <P,r<<) ■■:■> X 



PAGE 



^RESS SIZE DEBUG ORDER TYPE 





Jl tu 








-0004 


19 


NSS 





NUMERIC SIGNED 


:=00iB 


19 


NSS 





NUMERIC SIGNED 


.;002C 


19 


NSS 





NUMERIC SIGNED 


>0040 


1 


ANS 





ALPHANUMERIC 


>0042 


18 


GRP 





GROUP 


>0054 


37 


GRP 





GROUP 


>007A 




ANS 





ALPHANUMERIC 


>007C 
>0088 
.; 00A0 


20 
B 


GRP 
NSE 
ANS 







GROUP 

NUMERIC EDITED 

ALPHANUMERIC 


>00Aii 


36 


GRP 





GROUP 


>00CC 


12 


GRP 





GROUP 


.,.>:^0D8 


12 


GRP 





GROUP 


READ ONL / 


BYTE 


SIZE = 




>B1BE 


READ/WRI IE 


BYTE 


SIZE = 




>00EC 



OVERLAY SEGMENT BVTE SIZE = >002E 
10! Al. BYTE SIZE = >02D8 

[1 t-RP-RB 

WAINJNGS 



riAME 

Pf.-jl.'i I 

0\ I RAND I 

OPERAND -. 

WAIT- CHAR 

GREEI IN' j 

OPERATION- MESSAGE 

OPERA r OR 

RESULT -Ml. SSAGE" 
RESULT EDI ILD 
OVFRr 1 OW-F I EL I) 

WAIT-MU'.SAGL 

OPERAND 1 Ml BSAO.E 

OPERAND -2 -l-lf S",A<il.: 



C-* 
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3-B0 Model 
JRCE FILE: 



I /111 COE>.OL 
CAI C • MPL 



(RM/CODOL 1.3A) 



ic;c 



HiiF f .hi rcr 



"-•iTiorj 

3play-greet i no 
: play-rl:sul i 

J i -si or j 

3-RUN 

r -OPERANDS 

1ETING 

-TIPLICATIOnj 

T-START 

IRAND-1 

£RAND-l-MEb.iAGF 
ZRAND-2 

:RAND-2-MrBSAGf 

: rat i on mi;;; ;a< w 

. RAT OR 

RFLOW-FIl:L U 
RLAY- ADD II ION 
RLAY -DISPLAY GREEIJNG 
RLAY- D I VI SI ON 
RLAY-NULTIPITLA! r ( , N 

RLAY-CUB"! PACTION 
I DENT 

ULT 
JLT-ED1 TED 

JLT-MESSAGf 

TRY 

=-RUN 
FRACTION 
r-CHAR 
r-ENTRY 

'-MESSAGE 



10/31/B0 00:15:44 
OPTION LIST: (P,T,0=2,X 



/DECL / *DE5T* 



0046 

004 2 

/0052V 

0049 

0050 

/0062/ 

/0016/ 

0048 
/0041/ 
/0013/ 
/0032V 
/0014/ 
/0035/ 
/0019/ 
'VM22/ 
/0028/ 
/007B/ 
/0106/ 
/O099/ 
Z0092/ 
/00B5/ 
/0040/ 
/0012V 
/0026/ 
/0023/ 
/0043/ 
/0075/ 

0047 
/0015/ 
/0057/ 
/0029/ 



/0079/ 

/0107/ 
00B3 

/0100/ 
0060 
0080 
010B 

/0093/ 

*0064* 
0063 

*0069* 
006B 
004 4 

*0045* 

*0056* 



0053 

*0053* 

0054 

0051 

/00B6/ 

*0059* 

0109 

0058 



0090 0097 104 

/0073/ 
0087 0094 0101 



0066 00B1 *008B* 0095 

0071 00B1 00QB *0095* 

0046 0047 004B 0049 

*00B2* *00B9* *0096* *0103* 



0102 
0102 

0050 



*0055* *0081* *00BB* *0095* * 
*0066* 0067 *0071* 0072 

0061 



0060 



0102* 



-^8^ ' 
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TRS--B0 Model 
SOURCE FILE: 



I /1 1 1 COBOL 
ERRXMPL 



(RM/ COBOL 1.3A) 



OP I ION 



10/31/80 00: 
1. 1ST: <T»PiO-^iX 



4 3 PAGE 






DEBUG PG/LN A. . .B. 



£1 



J 


000010 


I DENT IF ICA1 ION DIVIE 


: I or J - 


^■' 


000020 








3 


000030 


PROGRAM- ID. 




h 


0000A0 




ERROR-EXAMPLES. 




5 


000050 








6 


000060 


ENVIRONMENT DIVISION 


1. 


7 


000070 


CONFIGURATION SECTION. 


B 


000080 


SOURCE-COMPUTER. RMC-MINI. 


9 


000090 


OBJECT- COMPUTER. RMC-MINI . 


10 


000100 


INPUT-OUTPUT SECTION 


1. 


11 


000110 


FILE- CONTROL. 




12 


000120 




SELECT INPUT- FILE 


13 


000130 




ASSIGN TO INPUT, INPUT -NAME; 


14 


0001 A0 




FILE STATUS 


IS INPUT- STATUS. 


15 


000150 




SELECT OUTPUT-FILE 


16 


000160 




ASSIGN TO OUTPUT i OUTPUT-NAME! 


17 


000170 




FILE STATUS 


IS OUT PUT- STATUS. 


113 


000 180 








19 


000190 


DATA DIVISION. 




20 


000200 


FILE SECTION. 




21 


000210 


FD 


INPUT-FILE 




f, *y 


000220 




RECORD CONTAINS 


B0 CHARACTERS 


23 


000230 




LABEL RECORD IS 


OMITTED. 


.•."M» 


0002 A 


01 


INPUT-REC. 




'^?6 


000250 




05 FILLER 


PIC X<06). 


000260 




05 INPUT-FLD 


PIC X(66). 


27 


000270 




05 AREA-FLDS 


REDEFINES INPUI H L) . 


20 


. 000280 




10 AREA-C 


PIC X(01>. 


29 


000290 




10 AREA -A 


PIC X(0A). 


3P 


000300 




10 AREA-B 


PIC X(61). 


31 


000310 




05 FILLER 


PIC X ( 0B ) . 


32 


000320 


FD 


OUTPUT-FILE 




3J 


000330 




RECORD CONTAINS 


B0 CHARACTERS i 


<A 


0003A0 




LABEL RECORD IS 


OMITTED. 


,3'j 


000350 


01 


OUT PUT - RE C. 




.-6 


000360 




05 SEQ-FLD 


PIC 9(06). 


;. .' 


000370 




05 OUTPUT-FLD 


PIC X<66). 


'Mi 


0003B0 




05 FILLER 


IMC X(0tJ). 


**,9 


000390 


worn 


(ING-STORAGE SECTION. 


-HI 


000A00 


77 


INPUT-NAME 


PIC X ( 20 ) . 


41 


000410 


77 


OUTPUT-NAME 


PIC X(2B). 


A 2 


000 A 20 


77 


COUNT 


PIC 9(06) VALUE 0. 


43 


000A30 


77 


LARGE -VALUE 


PIC X(0A) VALUE "LI 


A A 


000AA0 


77 


PIC-ERROR 


PIC *(05>.*9. 

$ 

*E*E*E *E* E*E*E*E *E*E *E < E « 


* * # K * 


1) PICTURE 


*E*E*E*E*E*E*E*E*E+ 


*•«»♦« 


1 ) SCAN RESUME 


*W*W*W*W*W*W*W* 


!W*W*W*W*W*W*W*W*W*WkW«U' 


Vi 


000450 


7"t 
t t 


INPUT -STATUS 


PIC X<04>. 


<»6 


000A60 


77 


OUTPUT- STATUS 


PIC X(02). 


4 


000 '470 


01 


BLO -VALUE 


i [•:; 9(06) . 


0O0uB0 









ip» 



M *E*E *E*E*E*E 
> W»W*W*W*W*W*W 



M. **«,.,,< „ m0NU8TI '—-x-"-' ™* ■ 

'<•> , . 

->-.' . : 0000 0PPf,ni ," nt . M w „, 

" 00OM-P. ?mc ^.'i /"OGRAM SEQUENCER", 

54 ;0 O0A ^ 0330 MSP V ,L - ! 10N 30 ERASE. 

55 .J001D 000V.0 .ij^ bPACtb* LINE 2. 

' 1 "Vi- .*.L) K.) OUT PUT -STATUS. 

-■*-*■* 1 ) J ! i' ' ' I i i ■ - '^ '•!> 

« .■*£' So.fi ;.,;' N "j 11 '" 1 0OTi-UI-F?LE* H " H " H " W """ H * W " H » H """""-"-"""'W 

M M50rM 0DL16 ;'p,?v 1 i' c , t, «- VALUE. 

65 .;aa. lH l.-, HB ,.,,i. |„ hi, W,Y LIHUINCIIJG BEGUN-. 



' 1a "' L1 '^ ' "' r->fiu INK. ..,»,■ A7 [ND 



9 



1 > 001.2 000700 ZZl ?S?; n V ? E 7 ° SEQ-F-LD. 

3 >0062 000 7 '0 /n, " U ' fU1 -RtC. 

4 >0BU.B 000 7 70 ( A o / 1° C0UN7 " 

7 >D * bA ™ 7 "* '^'UY COUW,, 

3 >B ^ »<"-'•» <.0« ^T^nT'^^^^ POSITION 0. 

"* --'•> SCAN i!»:: 
>00', 6 000 7( ,,; 



1^^ 



! -0P7f: nr.0,- ,, n „ , () nr ^_ 



* i) scan m ;:U hl" >w*w,w*w*l*l^^ 
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TRS--B0 Model I /I 1 1 COBOL < RM/ COBOL 1.3A) 10/31/80 00: 22: A3 PAGE 

SOURCE FILE: ERRXMPL OPTION LIST: <T,P,0-2iX 



ADDRESS 


SIZE 


DEBUG 


ORDER 


TYPE 


NAME 


V-" 









PILE 


INI'UI i ii.h 


= 0000 


S0 


GRP 





GROUP 


INP'JI- RF L 


>0006 


66 


ANS 





ALPHANUMERIC 


INPUT Fi D 


;0006 


66 


GRP 





GROUP 


AREA-FLD3 


>0006 


1 


ANS 





ALPHANUMERIC 


AREA-C 


j 0007 


4 


ANS 





ALPHANUMERIC 


AREA- A 


•000B 


61 


ANS 





ALPHANUMERIC 


AREA P. 


■ 









FILE 


OUT PUT -F III 


:00 t 30 


B0 


GRP 





GROUP 


OUTPUT -RFC 


>0050 


6 


NSU 





NUMERIC UNSIGNED 


SEO-Fl D 


•>0056 


66 


ANS 





ALPHANUMERIC 


OUTPUI -F-l n 


• 00 A M 


28 


ANS 





ALPHANUMERIC 


input- name; 


■0I2C0 


2S 


ANS 





ALPHANUMERIC 


OUTFHH HAM'.- 


00DC 


6 


NDU 





NUMERIC UNSIGNED 


COUN 1 


>00E2 


A 


ANS 





ALPHANUMERIC 


LARGE ~VAI .Ul. 


>00F. 6 


166 


ANS 





ALPHANUMERIC 


PIC-ERROR 




4 


ANS 





ALPHANUMERIC 


INPUI -SIAfU'! 


■^001 :• 


2 


ANS 





ALPHANUMERIC 


OUTF'U 1 - S. 1 A 1 •)■ 


0111 /» 


6 


NiJU 





NUMERIC UNSIGNED 


GLU VAI ' i! 



RLBE RVED WORD CONF L 1 CT * W*W *W* W*W * W * W x W*W* W* W * W COUN f 
1LLL:(jAI PERFORM *E*E*E "E*E*K *E*E *E xE «E*E*E*E *F *b INPUT -UII-.( 



Ut-JD 



Nil) PROCEDURE *E*L ; *E.*E*L i«E *L*E«L*E*E*t: *\ *! 0110 



VALUE ERROR *E*E*E*E*E*E*EnE*E-*E*E*E*EkE*E*L*EkE LARGF. VAI ' I 
fill GIATUB ERROR *E*E*t :*L*l- *E *E*E#E*E *F*E >E: *E*E INPUT Flit 



r 



< < 



READ ONLY BYTE SIZE = >017E 

RE A!)/ WRITE BYTE SIZE = >013B 

OVERLAP SEGMENT BYTE SIZE = > 00013 

101/,! t.'.YTL SIZE =- .S02B6 

; 1 l.i^ROR*:.. 

.• WARNINGS 



41 



30 Model I /I I I COBOL (Rh/COBDL 
CE FILE: ERRXMF'L 



1 .3A) 



OPTION 



£ REFERENCE 

-A 

-B 

-C 

-FLD3 

T 

T-CHECK 

T-FILE 

T-FLU 

T-NAME 

T-REC 

T-STATUS 

E-VALUF 

UT--FILF 

UT-FLD 

JT-NAME 

JT-REC 

JT- STATUS 

ERROR 

r LD 



10/31 /BP o0:22:43 
LIST: <T»P,..i=2iX 



PAGE 



/DLCL/ *DEST* 



70029/ 
/0030/ 
/002B/ 
/002 7Z 
/0042/ 

0068 
/0012/ 
Z0026/ 
*0013* 
/0024/ 
*0014* 
/004 3/ 
/0015/ 
/003// 
* 00 1 6* 
/0035/ 
*0017* 
/0044/ 
/0036/ 
/0047Z 
/0051/ 

0080 
/006L>/ 

0067 



■K0073-* 0076 

/0021/ 

/0027/ 0071 
/0040/ *0057* 

/0045/ 

/m32/ 0061 
*0071* 

/0041/ r0059+ 
*0062* »0072« 
/0046/ 

*0070* 

*0063* *0069* 0070 



0074 
70075/ 






~\ 



42 



— — — — TRS-BO 



APPENDIX B 



J ■ M » » i' . 



TRS-80 (TM) MODEL I/III COBOL 
SAMPLE SESSION 



C- 



y ' 



Radio /ftsek' 
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TRS-BO 



^..^ , I '' e you throu 9 h a compilation and execution 
^T °'" sLa '" Ur "J WJ,h •' C;,H <^ source file. We will use the 
sampl,, program, C.,LCXMPL/CBL, included with vour COBOL 



Wote !or Model 111 users: References will be made to the 
o para .<> Deve opment and Runtime diskettes. Since Model III 
ill OS 1 d the Co,n P 1,2t e system, your one diskette will 

t.ke the place o): both the Development and Runtime diskettes. 



ST.'-:i j !.;jf, . 



In this 
for th 



: eai 



th'? sojt. 



i le 



•3 session, we will use the sample program, CALCXMPL/CBL, 

inqfrn ; f i ilK "" \\ " J° create y° ur own source file, follow the 
instructions m the COBOj, Editor (CEDIT) User's Guide. 



ST'r-JP TW'J. .Joinp' 1 ■_- . 

When co.npili,.., (KS'.'OBOL), the COBOL Development diskette must b* 
on a diJ ,' "■" ,lr ;y; iS - , The Program being compiled must also be 
nSrnnM ' aUliOU 9 h not necessarily on the same one as 
RuS??^',iiJi; r ^ a,nple R ? r09ra,n ls ° n b ° th the Development and the 
of ^ l u ; A1 ?°' there ' nUSt be some free s P ace on one 
ll JoS'r .VrtjriS? Compiler to write the compiled version 

uid2r t ?5 S S:rm^: 1 ° Pn,l - ,nt diSkettS ^ ^ ° f the driVSS ' ^ 
RSCOBJL CALCXMPL (T) 

See LrHnnV'VT 3 \i iS £ ing t0 be dis P la y ed a t the console. 

onMnn m . 3 ^ in . th ° C0B0L USER ' S GUIDE for other Compiler 
options that are available. 

rnnnr C o mm f nd creates an ob ^ct file that can be executed by the 
r?T?vMm Ur vVn e - o ThlS file wiU automatically be named 
thl Z 7 ?• Com P aled Programs are always written to disk with 
*i\ ♦ ^tension and will be written on the first available 
aisKette that, lias enougli free space. 



/~\ 



STEP TilHIilK. Uxocutc. 



Model J :i: 
with t I ! .» : 



! ' K.J (Hit 111' 



Uev.j] opinenl diskette and replace it 
Also be sure that the diskette 



f|as 
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— TRS-SO " . 

containing the newly compiled version of cur sample program is 
still on one of the drives. 

Under TRSDOS READY, type: 

RUNCOBOL CALCXMPL 
The Runtime will execute the program CALCXMPL/COB. See Section 
2.3.1 of the COBOL User's Guide for Runtime options. 



0~ 



C- 



— Radio /hack* 
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C O N \/ E k S J N SESSION 

1,1 '-> « MODEL ] I 1 USERS 



'I'iie rJiskeu.jj-3 you have contain all the files needed to 
compile yd run COHOL Programs. However, these diskettes are 
rorma,. ,> u ; or .i Model I and need to be converted to Model 
IHbefor-.- ycj can use thorn. You will need one blank formatted 
disk ■ I '. « ( 'iji this prootduie. 



dis 



M;i, BACj-'')I- youi Model III system diskette to the blank 
'"•«■- Take oat. your old Model III system disk and move the 
i)'-wly ;i ,:.d s/st.-Tii disk to drive 0. Use the PURGErO (SYS) 
comma nl to delete all usur files and all unnecessary system 
files. CONVKRT./CMD is the only system file that is essential 
for the following procedure. You must have at least 130 free 
granules of space on the new system diskette. Check the 
directory to see how much space you do have. 

ii'-> - I he COHOL Development diskette in drive 1. Then use 

the ■; iiiv ■! .;j on ut ilit.y as shown below. 

i'i-SDOS Ready 
CONVERT < ENTER > 

The conversion utility will return with a prompt for Source 
Drive (yu will enter 1) and Destination Drive (you will enter 
0). The password on both the Development and the Runtii 



/•*=*»» 



.me 



diskette is ' PA S S WOR D 

The utility will convert the files to Model III format, 
writing t ho converted version onto the diskette in drive 0. 
Some of the files are passworded and the utility will prompt you 
as in tlie example shown below: 

Enter Password for RSCOBOL/CMD ? 

Just press -'ENTER> and the files will be converted and 
transferred. Passwording does not prevent you in any way from 
using them. 

Five of the files are passworded and you will have to press 
< ENTER > after every prompt. Four files are not passworded and 
will automatically be converted and written on drive 0. 



Who i, 



Lin.- conversion is complete the utility displays a 



/-W| 



N 



Radie Shaetf 
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message telling you that it is dono and then return-; ■•<-n , .rul to 
TRSDOS. 

Put the COBOL Runtime diskette in drive 1 and once again 
use the CONVERT utility the same way as described above. There 
are some passworded files on this diskette also, so you will 
have to press <ENTER> when asked for the file passwords. Also, 
some of the files are stored on both diskettes. Wh.-n trying to 
CONVERT the file the second time you will get the following 
message: 

CALCXMPL/COB Existing file. Use it (Y/N/Q)? 

Type N to use the previously converted file. The v option 
will Convert the file again unnecessarily and the Q option wi 1 . l 
stop the CONVERT utility. To have more free space on tee 
diskette you may PURGE the CONVERT utility when th-.- conversion 
is complete, but it is not necessary. Label this new diskette 
to show that it contains the complete COBOL package. 

We suggest that you make backups of your new COBOL diskette 
or keep the Model I version COBOL diskettes. This will give you 
some security against losing your COBOL package. 

£&i ^ You may want a diskette with just the minimal Runtime fiLes 
\~* on it for running previously compiled programs. You will need a 

blank formatted diskette. BACKUP your COBOL diskette onto this 
new diskette. Then use the PURGE command to delete all but the 
necessary Runtime files. The only files that you need to keep 
on the new diskette are RUNCOBOL/CMD and RSCBLDnn/OBJ. (nn 
refers to the version number.) 

Remember that only programs that have been already compiled 
using RSCOBOL can be used with this Runtime diskette. 
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INTRODUCTION 



CEDIT lets you create and edit COBOL source files (the files 
that are input to the COBOL Compiler). 



Capabilities and features: 

. Allows you to load in ("chain") multiple source files. 

. Single-key abbreviations for many commands 

. Powerful intra-line editing mode 

. "M" command informs you of memory used/free at any time 

. Global string find/change commands 

. Editor provides line numbers in the range 0-65535 



SOURCE FILE FORMAT 



Source files are written to disk in the format required by the 
COBOL compiler, as follows: 

1. Files are fixed-length record (FLR) type, LRL=256, as 
described in the TRSDOS Reference Manual. 

2. Each record in the file corresponds to one line of source 
program. The first six data bytes in a record represent the 
sequence number in ASCII form followed by the COBOL source code. 
The carriage return (<ENTER>) used to terminate the line during 
line insertion is stored. 

3. Text is stored exactly as it is displayed on the video, e.g., 
spaces are stored as spaces, not as a tab character. 
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TO START THE EDITOR 



The editor program is included on the COBOL program diskette. 
It has the file name CEDIT. 

To use the editor, put the COBOL diskette into one of your 
drives, and under TRSDOS READY, type: 

CEDIT 

The editor will start up with the prompt: 

TRS-80 Cobol Editor Ver v.r 
Copyright (c) 1980 Tandy Corp. 



Where v is the version and r is the release number. The > 
indicates you are in the command mode. 
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MODES OF OPERATION 



There are three modes of operation: 

. COMMAND, for entering the editor commands 

. INSERT, for entering your text lines 

. EDIT, for interactive editing of a line of text 

COMMAND MODE 

The > prompt followed by the blinking cursor indicates the 
editor is waiting for you to type in a command. Every command 
must be completed by pressing <ENTER> . To cancel a command, 
press <BREAK>. 

INSERT MODE 

You enter text one line at a time; a line consists of up to 255 
characters, including the five-digit line number provided by 
CEDIT. Line numbers can range from to 65535. 

The I command puts you in the insert mode. When you start 
inserting a line, the editor displays the five-digit line number 
followed by the blinking cursor. Your text can begin in column 
seven. (See the COBOL Language Reference Manual ■• for 
column-field uses in COBOL source programs.) 

To store the current line, press <ENTER>. The editor will 
display the next line number, and you can begin inserting into 
that line. To cancel the current line and return to the command 
mode, press <BREAK>. See I Command for details. 

EDIT MODE 

There are many powerful edit sub-commands — identical in most 
cases to those in Model I and III BASIC'S Edit Mode. There is 
also a sub-edit insertion mode in which the keys you type are 
inserted into the line at the current cursor position. 

To start editing a line, use the E command. After editing the 
line, press <ENTER> to save the corrected line and return to the 
command mode. To cancel all changes made and return to the 
command mode, press <Q>. For further details, see E Command. 
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USING THE COMMAND MODE 



Special terms used in the command descriptions: 

"text", "text buffer", "text area" 

All refer to the COBOL source program currently in RAM. 

"current line" 

The line most recently inserted, displayed or referenced in a 
command. When there is no text in RAM, current line is set to 
100. Immediately after a file is loaded, the current line is 
set to the beginning of the text. 

"increment" 

The value which is added to the current line number whenever the 
editor needs to compute a new line number. After startup, 
loading a new file, and when there is no text in RAM, the 
increment is set to 10. 

"line-reference " 

Either an actual line number from to 65535, or one of the 

following special abbreviations: 

Symbol Meaning 

# Beginning line of text (lowest-numbered line) 
Current line 

* Last line of text (highest-numbered line) 

"line-range" 

This can be either a single-line reference or a pair of 

line-references separated by a colon: 

Sample 

Command Meaning 

P100 Prints line 100 only 

P100:300 Prints all lines from 100 to 300 

P#:. Prints all lines from beginning to current 

"delimiter" 

A special _ character used to delimit (mark the beginning and end 

of) a string. Any of the following characters can be used: 

ftaelc — 
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l *'#$%&'()* + ,-./:;< = > ? 

Whichever character is used to mark the beginning of a string 
must also be used to mark the end of the string. 

Sample use... Marks this string... 

'THIS " MARK 1 THIS " MARK 

/X'8000'/ X'8000' 

& & (seven blanks) 

(The """" symbol represents a blank space. It is used only where 
necessary for emphasis or illustration.) 



SPECIAL KEYS IN THE COMMAND MODE 



<BREAK> 

Press this key to cancel the command you are entering, or to 

abort a command which is currently being executed. 

^** <right-arrow> 

v -' Advances the cursor to the next four-column boundary 
(boundaries are at columns 4, 8, 12, ...) 

<ENTER> 

Pressing this key at the beginning of a command line displays 
the current line. 

<up-arrow> 

Pressing this .key at the beginning of a command line displays 

the line which precedes the current line. 

<down-arrow> 

Pressing this key at the beginning of a command line displays 

the next line after the current line. 

C shift<left-arrow> 

Erases the command you are entering. 

<§> 

Pauses H and P commands. Press any other key to continue. 
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COMMANDS 



Note^ Spaces are not significant in command lines. For example, 

has the same effect as 

Pl:5 
The P command is explained later on. 



B 

Displays the bottom line (last line in the text area). 

C/search-string/replacement-string/n 

Finds, changes, and displays the first n lines, from the current 
line, that contain search-string. In each of these lines 
oJcURRF^rp'n? " S ch ? n 9f d . to replacement-string. ONLY THE FIRST 

Sph T f. earC ' Stnng IN A SINGLE LINE IS COUNTED AND 
CHANGED If the end of text is reached before n finds, the 
message "string not found" will be displayed. V 

ifnp n?"?^} "*. ^ 6 comma " d ' th e current line is set to the 
norfound" e is a dispia n yed? r ^ the firSt liM ° f ^ ^ °*^ 

/search-string/ is a sequence of characters delimited by 
a matched pair of characters from the set: 

*"#$%&•()* + ,-./:;<«>? 

replacement-string/ is a sequence of characters terminated 
by the same character used to delimit search-string. 

n Tells the maximum number of "changes" you want, n can 
be a number or an asterisk. The asterisk means change 
and list all occurrences. If n is omitted, only the 
first occurrence is changed and listed. 

Sample 

Commands Notes 



C/VAR-/NET=/ Changes the first occurrence of 

"VAR=" to "NET=" in the first 

c»v A r=« net =» lilt t h s a t b l°T in \ u - 
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C/RETRY/R/4 



Changes the first occurrence of 
"RETRY" to "R" in the first four 
lines that contain it. 

C/MISPELING/MIS -SPELLING/* 

Changes the first occurrence of 
"MISPELING" to "MIS-SPELLING" in 
every line that contains it. 

C/EXTRA//* Changes the first occurrence of 

"EXTRA" to "" (null string) 
i.e., deletes the first "EXTRA" in every 
line that contains it. 



Va*" 1 



D line-range 

Deletes lines in the specified range and renumbers the following 
lines using the current increment. If line-range is omitted, 
the current line is deleted. 

Sample 

Commands Notes 



D. or D 

D2 

D98:115 

D1000:* 



Deletes the current line. 

Deletes line number 2. 

Deletes lines found in the range 98 to 

115. 

Deletes all lines numbered 1000 or 

higher to end of text. 



E line-reference 

Starts edit mode using the specified line. If line-reference is 
omitted, the current line is used. 

Edit sub-commands: 

<ENTER> Ends editing and returns to command mode. 

shif t<up-arrow> Causes escape from sub-edit insertion 

(X, I, and H sub-commands) and returns to 
edit mode. 



n <SPCBAR> 



Advances cursor n columns. 
If n is omitted, 1 is used, 



C- 



L 



"Lists" working copy of the line and 
starts a new working copy. 

"Extends" line: positions cursor to end 

of line and enters sub-edit insertion mode. 

Use shif t<up-arrow> to escape to edit mode. 

Enters sub-edit "insertion" mode at the 

Rads© /hack* 
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nD 



nC 



nSc 
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current cursor position; use shif t<up-arrow> 
to escape to edit mode. 

("Again") Cancels changes and starts a new 
working copy of the line. 

("End") Saves edited line and exits to 
command mode, > prompt. 

™ Uit l' ) Cancels changes and returns to 
command mode', > prompt. 

"Hacks" remainder of line beginning at 
current cursor position and enters sub-edit 
insertion mode. Use shi f t<up-arrow> to 
escape to edit mode. 

"Deletes" n characters beginning at current 

Shf S S r i P ?? ltl ° n - If n is omitted ' 1 is used. 
The deletion is not echoed; use <L> to see 
the line with characters deleted. 

"Changes" next n characters from the current 

^J? r P° sit ! on ' ? s ing the next n characters 
typed. If n is omitted, 1 is used. 

nhf?;^ h " ) M °o eS C ? rSOr to nth occurrence of 
character c. Search starts at next character 
after the cursor. If n is omitted, 1 is 
used. 

( " Kill " ) Deletes all characters from current 
cursor position up to nth occurrence 
of character c, counting from current 
cursor position. If n is omitted, 1 is 
used. The deletion is not echoed; use <L> 
to see the line with characters deleted. 



F/search-string/n 

se^rch-^rfn^'T ^ e firSt n lines which conta in 
5??n£S™n£ 2J' startln 9 at the current line. ONLY THE FIRST 

eSd If text °f, 8 ; arC ST I™* 9 IN A SINGLE LINE IS COUNTED S the 

f e otd°" wUl oe S d^splMed 6 ^ ^ " ""'■' th « """*« °*^ «" 

iti* Sf'Thf JaWlind^ oTTo^n "f 6 "^^^ Une 1S SSt t0 the 
not found" is displayed ° "* flr8t llne ° f teXt When "^ring 
/search-string / is a sequence of characters delimited by 

— — Etadie /haelf __ 
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a matched pair of delimiters chosen from the set: 
!"#$%&•()* + ,-./:;< = >? 

Tells the maximum number of "finds" you want. n can be a 
namber or an asterisk. The asterisk means find and list all 
occurrences. If n is omitted, only the first occurrence is 
listed. 

Sample 

Commands Notes 



F/VAR=/ Finds and displays the first line that 

contains the string "VAR=". 
F"VAR=" same as above. 

F/RETRY/4 Finds and displays the first eight lines 

containing at least one occurrence of 

"RETRY". 
F/MISPELING/* Finds and displays every line containing 

at least one occurrence of "MISPELING". 

H line-range 

("Hard-copy") Lists to the printer all lines found in the 
specified range. If line-range is omitted, all the lines after 
and including the current line are printed. 

The printer should be initialized (with FORMS) before you 
execute this command. 

Sample 

Commands Notes 



H#:* 

H7020 

H672:800 



Lists all lines to the printer. 

Lists line 7020 to the printer. 

Lists all lines found in the ranqe 672 to 

800. 



I start-line, increment 
Starts the insert mode. 

C- start-line is a line-reference telling the editor where to begin 

inserting into the text. If omitted, the current line 
is used. 

, increment is a number telling the editor how to compute 

successive line numbers. If omitted, the current inor^men^ 
*— - is used. 

Radio /hack — 
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next line number (start-line + increment). 

Special Keys in the Insert Mode 

-> Advances the cursor to the next eight-column 

boundary (8, 16, 24, ...). 

shift <- Erases the line and starts over. 

<- Backspaces the cursor and erases the character. 

<ENTER> Marks the end of the current line. The editor will 
store the current line and start a new one, using 
increment to generate the next line number. 

Overwriting lines 

An automatic line numberer is provided to prevent you from 
accidentally overwriting lines already entered. If a line 
number conflict occurs the complete file will be renumbered from 

the current start-line by the current increment. 

Sample 

Commands Notes 



I Start inserting at current line number, A 

using current increment. *£;„• 

1,1 Start inserting at current line number, 

using 1 as an increment. If current line 
number is in use, start with current line 
plus 1 . 

145,2 Start inserting at line 45 with an 

increment of 2. If line 45 is in use, 
start with line 47. 

1100 Start inserting at line 100, using the 

current increment. If line 100 is in 
use, start with 100 plus increment. 

L filespec 

Loads a source file from disk. If there is already text in RAM, 
the editor will ask whether you want to chain the new text onto 
the end of the old, or clear out the old first. If you chain 
the new text onto the old, the line numbers will start at the 
current start-line and be incremented by the current increment. 

filespec is a TRSDOS file specification for a FLR text file. 
The file may have been created by this COBOL editor or by 
another means. However, it must be in the COBOL source file 
format. (See Source File Format.) J 
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Sample 

Commands Notes 



L DEM0/BAS:1 Load DEMO/BAS from drive 1 
L XDATA Load XDATA 



M 

Prints the number of characters in the source text (excluding 
the editor's line numbers) and the amount of memory free for 
text storage. 

Sample 

Command Notes 



M 



A typical response in a 48K system might 

might look like this: 

000427- TEXT 

039383- MEMORY 

Meaning you have 427 bytes of text, and 

39383 free bytes of memory available. 

N start-line, increment 
Renumbers the entire text. 

Note: The renumbering commands DO NOT RENUMBER LINE REFERENCES 
inside your program text; do not use them unless you are not 
concerned wth line references (GOTO, IP... THEN ..., GOSUB, 
etc.). To renumber your program properly, use the Compiler 
COBOL RENUMBER command. 

stert-line becomes the lowest line number when the text is 
renumbered. If start-line is omitted, the current line 
number is used. 

increment is used in computing successive line numbers. If 
omitted, the current increment is used. 

The current line before numbering is also the current line after 
renumbering. 

Sample 

Commands Notes 



N 



Repeats the last renumbering command. 
N1 °0 Renumbered text will start with line 100; 

v, successive lines computed with the 

Radio /hack* 
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Tm 



current value of increment. 

As above; line numbers at increments 

of 25. 



P line-range 

Prints the specified lines to the display. If line-range is 
omitted, 14 lines starting at the current line are displayed. 



Sample 
Commands 



P233 

P. 

P* 

P140:615 



Notes 

Prints 

line. 

Prints 

Prints 

Prints 

Prints 

range . 



14 lines starting at current 

line 233. 

the current line. 

the last line. 

the lines within the specified 



Lines 



140 



ind 615 don 



* +• i" 



nsve to 



be existing line numbers. 



Terminates session and returns to TRSDOS. 
not written to disk. 



The source text is 



** 
»«*.* 



R line-reference, increment 

Replaces contents of the specified line and continue in insert 
mode. If line-reference is omitted, the current line is used. 
If increment is omitted, the current increment is used. Also 
renumbers the complete file using the current start-line and the 
new increment. 

The R command is equivalent to the D (delete) command followed 
by the I (insert) command. When you enter the command, the 
editor deletes the specified line and puts you into the insert 
mode, starting with the line just deleted. 

After you press <ENTER> , the editor will contine in the insert 
mode, prompting you to enter the text of the next line number. 
To escape from the insert mode, press < BREAK > . 



Sample 
Commands 

R125,3 



Notes 

Prompts you to insert replacement 
text for line 125. Subsequent line 
numbers will be generated with an 
increment of 3. 
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R Prompts you to insert replacement 

text for the highest numbered line in 

the text area; subsequent lines will 

be generated using the current increment. 

T 

Displays the top line (first line in the text area) 

W filespec 

Writes the text in RAM into the specified file. 

filespec is a TRSDOS file specification. If file already exists, 
its previous contents will be lost. 

Sample 

Commands Notes 



W DEM0/CBL:1 Save DEMO/CBL onto drive 1. 

W XDATA Save XDATA/CBL onto first available drive. 

X/search-string/replacement-string/n 

This command is exactly like the C (Change) command, except that 
it displays the line to be changed and queries you (Charge? ) 
each time it finds search-string. If you answer Y, the line will 
be changed; any other answer leaves the line unchanged. In 
either case, the process continues until all first occurrences 
have been found. 

Sample 

Command Notes 



X/MISPELING/MSP/* 

Changes the first occurrence of 
"MISPELING" to "MSP" 

in every line that contains it, but asks 
you to confirm each change before it 
is made. 
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PREFACE 



This reference document describes the COBOL Language as 
implemented on the Radio Shack TRS-80 Model II Microcomputer under 
the TRSDOS Disk Operating System. 

It assumes the reader is familiar with the COBOL Language- the 
general operation of the TRS-BO Model II Microcomputer, and the 
TRSDQS Operating System. The reader is specifically referred to 
the following publications: 

TR5-B0 Model II COIJOL User's Guide 

TRS-80 Model II Operation Manual 

TRS-BO Model II Disk Operating System Referen:e Manual 
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INTRODUCTION TO COBOL 



What is COBOL? 



COBOL (COmmon Business Oriented Language) is an English oriented 
programming language designed primarily for developing business 
applications on computers. It is described as English oriented 
because its free form enables a programmer to write in such a way 
that the final result can be read easily and the general flow of 
the logic can be understood by persons not necessarily as closely 
allied with the details of the problem as the programmer himself. 

Because COBOL is a programming language it can be translated to 
serve as communication between the programmer and the computer. 
The COBOL program (the source program) which has been written by 
the programmer is input to the COBOL compiler. The COBOL compiler 
then translates the COBOL program into a machine readable form 
(the object program). 

Although each computer has its own unique COBOL compiler program, 
an industry-wide COBOL effort has resulted in a degree of 
compatibility so that a COBOL source program can be exchanged 
among different computers of one manufacturer or among computers 
of different manufacturers. 

A COBOL program is both a readable document and an efficient 
computer program. Throughout the study of the COBOL language, it 
is important to keep these two basic capabilities of COBOL in mind 
and to observe the close relationship between them. 

The readability factor of the COBOL language facilitates 
communication not only between programmer and management/ but also 
among programmers, with a minimum of additional documentation. The 
readability factor need not affect the other equally important 
capability of constituting an efficient computer program. It is 
precisely here that the attention of a good COBOL programmer is 
centered. He can produce a solution in the form of a 
well-integrated COBOL program by combining the 
following: knowledge of the problem, programming technique, 
capability of the equipment, and familiarity with the available 
elements of the COBOL language. 



r'^^jE, 



The History of COBOL 



v **»^ 



c 



Development of the COBOL programming language is a continuina 

?he 0C c"n%er:nL°T d nJ g *J\ P "»"-"*"» Language Committee^) o 
i2 m J ul V" a SY f tems Languages (C0DA5YL). This committee 
compter IrJ ^P— ntatxves of computer manufacturers and 

Th !, • f J r ! t L VerSi0n ° f the CDB0L Programming language to be 
published by CODASYL was called C0B0L-60. The second version 

Pro e 8 ur^? L * 61 ' "H'! 1 "" "•■"»•• in the organization ' i 
c£bo!-60* DiV1 * 10n and thUS WaS not ««Pl»t.l« compatible with 

In 1963 the third version, called C0B0L-61 Extended, was released 

the ^H*^ 351 ^ 1 !!! C0BDL - 61 " ith the addition of the sort featured 
the addition of the report writer feature, and the modification of 
the arithmetics to include multiple receivina fiplri* III \Z 
CORRESPONDING option. receiving fields and the 



The fourth version of the COBOL programming lanauaae, CDBm -a«? 
consists of C0B0L-61 Extended with th. inclu.ion or a semes' of 
options to provide for the reading, writing, and processing of 
mass storage files and the addition of table handling features 



becan ni J n ^ ' ^ *■! C0DASYL CDB0L Programming Language Committee 
began to report its developmental work in a Journal of 

?nnn. P , ment " , T !*n firSt report to be Polished was the CODASYL 
COBOL Journal of Development — 196B. This journal is the official 

;; c P ;; n ; f *J» C0 ; ASYL COBOL Programming Language Committee an iJ 

8 DL R .developmental activities of CODASYL through Ju y 

dlfetions 13 ° n C0B0L - 65 " ith certain additions and 

l^l'o a nd B ?^ DU e na J °* D - el °P-"t reports were published in 
of CODASYL UZ 73 . h Each d0CUmented the developmental activities 
ot LUDASYL from the previous report, resultinq in c onMnual 1 n 
varying COBOL definitions. 9 continually 



PAGE 



The Standardization of COBOL 



In September 1962 the American National Standards Institute (ANSI) 
set up a committee to work on the definition of a standard COBOL 
programming language. This standardization effort was based on the 
technical content of COBOL as defined by CODASYL. In August 1968 
an American National Standard COBOL was approved which was based 
upon the developmental work of CODASYL through January 1968. This 
first version was called American National Standard COBOL 1968. 

In hay 1974 a revision of American National Standard COBOL was 
approved. This revision, called American National Standard COBOL 
1974, is based upon the developmental work of CODASYL through 
December 1971. The COBOL programming language and compiler 
described in this document is based on the American National 
Standard COBOL 1974. 
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CONVENTIONS USED IN THIS MANUAL 



This manual presents the language definition and capabilities of 
COBOL in a generally accepted syntax consistent with the 1974 
American National Standard COBOL document. As a result, COBOL 
Syntax is specified by formats employing special notation. 

Words 



All underlined uppercase words are key words and are required when 
the functions of which they are a part are used. Uppercase words 
which are not underlined are optional and may or may not be 
present in the source program. Uppercase words, whether underlined 
or noti must be spelled correctly. 

Lowercase words are generic terms used to represent COBOL words, 
literals, PICTURE character-strings, comment-entries, or a 
complete syntactical entry that must be supplied by the user. When 
generic terms are repeated in a general format, a number or letter 
appendage to the term serves to identify that term for explanation 
or discussion. 

Brackets and Braces 



When a portion of a general format is enclosed in brackets, 11, 
that portion may be included or omitted at the user's choice. 
Braces, <>, enclosing a portion of a general format means a 
selection of one of the options contained within the braces must 
be made. In both cases, a choice is indicated by vertically 
stacking the possibilities. When brackets or braces enclose a 
portion of a format, but only one possibility is shown, the 
function of the brackets or braces is to delimit that portion of 
the format to which a following ellipsis applies. If an option 
within braces contains only reserved words that are not key words, 
then the option is a default option (implicity selected unless one 
of the other options is explicitly indicated) 

El 1 ipsis 



The ellipsis (...) represents the position at which repetition may 
occur at the user's option. 
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Punc tuat i on 



The punctuation characters comma and semicolon are shown in some 
Cui.nats. Where shown in the formats* they are optional and may be 
included or omitted by the user. In the source program these two 
punctuation characters are interchangeable and either may be used 
anywhere one of them is shown in the formats. Neither one may 
appear immediately preceding the first clause of an entry or 
paragraph. 

If desired, a semicolon or comma may be used between statements in 
the Procedure Division. 

Paragraphs within the Identification and Procedure Divisions, and 
the entries within the Environment and Data Divisions must be 
terminated by the separator period. 

Special Characters 



The characters '+', '-', '>', '<', '=', when appearing in formats, 
although not underlined* are required when such formats are used 

System Dependent Information 



V 



Selected features in ANSI COBOL are intended for definition by the 
implementor* to accomodate the capabilities and restrictions of 
the host system. These system dependent items are summarized in 
the COBOL Users Guide. 



PAGE 



II 



THE STRUCTURE OF THE COBOL LANGUAGE 
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THE LANGUAGE STRUCTURE 



The smallest element in the COBOL language is the character. A 
character is a digit, a letter of the alphabet, or a symbol A 
COBOL word is one possible result obtained when one or more COBOL 
characters are joined in a sequence of contiguous characters. Just 
as English words are determined by rules of spelling, so COBOL 
words are formed by following a specific set of rules. 

Using the COBOL rule* of grammar, the COBOL words and COBOL 
punctuation characters are combined into statements, sentences, 
paragraphs, and sections. When writing normal English, a failure 
to follow the rules of grammar and sentence structure may cause 
misunderstanding; the same is true when writing COBOL. It must be 
emphasized that a thorough knowledge of the rules of COBOL 
structure is a prerequisite to writing a workable COBOL program. 



Character Set 



The COBOL character set consists of fifty-one characters: 



Digits through 9 

Letters A through Z 

Punctuation Blank (or space) 

, Comma 

; Semicolon 

Period 

" Quote 

( Left parenthesis 

) Right parenthesis 

Special > Greater than 
< Less than 
+ Plus 

Minus (or hyphen) 

* Asterisk 

/ Slash (or Stroke) 
= Equal 

* Currency 

These characters determine the structure of a COBOL program In 
some constructs, such as comments, other characters may be used 
but they have no grammatical meaning. 



PAGE 



8 



Characters are combined to form either a separator or a 
character -string. 

The COBOL character set is a proper subset of the ASCII character 
code set native to the computer. The complete character set may be 
used only within non numeric literals and comments. The chart 
beloui gives the hexadecimal and decimal codes for the complete 
character set. 





Hexadec imal 


Decimal 




Hexadec imal 


Dec imal 


Character 


Value 


Value 


Character 


Value 


Value 


Spact 


20 


32 


e 


40 


64 


i 


21 


33 


A 


41 


65 


H 


22 


34 


B 


42 


66 


# 


23 


35 


C 


43 


67 


* 


24 


36 


D 


44 


68 


7. 


25 


37 


E 


45 


69 


& 


26 


38 


F 


46 


70 


/ 


27 


39 


G 


47 


71 


< 


28 


40 


H 


48 


72 


) 


29 


41 


I 


49 


73 


* 


2A 


42 


J 


4A 


74 


+ 


2B 


43 


K 


4B 


75 


* 


2C 


44 


L 


4C 


76 


- 


2D 


45 


M 


4D 


77 


. 


2E 


46 


N 


4E 


78 


• / 


2F 


47 





4F 


79 





30 


48 


P 


50 


BO 


1 


31 


49 


Q 


51 


81 


2 


32 


50 


R 


52 


82 


3 


33 


51 


S 


53 


83 


4 


34 


52 


T 


54 


84 


5 


35 


53 


U 


55 


85 


6 


36 


' 54 


V 


56 


86 


7 


37 


55 


W 


57 


87 


8 


38 


56 


X 


58 


88 


9 


39 


57 


Y 


59 


8? 


; 


3A 


58 


Z 


5A 


90 


/ 


3B 


59 


C 


5B 


91 


< 


3C 


60 


\ 


5C 


92 


= 


3D 


61 


1 


5D 


93 


> 


3E 


62 


•s 


5E 


94 


? 


3F 


63 


- 


5F 


95 
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Separators 



A separator is a string of one or more punctuation characters. 
Punctuation characters belong to the following set: 



Space 

Comma 

Equal sign 

Left parenthesis 

Period 

Quotation mark (double) 

Right parenthesis 

Semicolon 



Separators are formed according to the following rules: 

1. A space is a separator. Anywhere a space is U5e d as * 
separator, more than one space may be used. 

2 5o??o.',p/r nlC ° l0n ' "J? Peri ° d are "P-i-.tor, when immediately 
roj owed by a space. These separators may appear onlu when 
explicitly permitted. HH niy u " ,en 

3 P^rToT^/Ind 'i?"!* " " h i k Ch m- « appear onl « ir > Glanced 
^hH ! . ri9ht Parentheses delimiting subscripts, 
indices, arithmetic expressions or conditions. P 

pareVthe^ 65 " ""* ^ preCeded b « * separator space or left 

«n*r! P^enthesis must be followed by one of the sep 
space, period, semicolon, comma or right parenthesis. 

4 ' dentin, S ! Parat0rs which ma « ^Pear only in balanced pair 
conned nonnumeric literals except when the literal i 



larators : 



rs 

s 



«n-°! B "i n ?.2i! *!*?°".' n ?? k mUSt be im mediately preceded by a 



space or left parenthesis. 



A 
o 
pa 



f thr«!L.Ii! 0tati0n ^^ mUSt be immedia *ely followed by one 
arenthesJs SPaCe ' """"■• semicolon ' Period or right 
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5. The separator space may optionally immediately precede all 
separators except: 

As specified by reference format rules 

As the separator closing quotation mark. In this case, a 
preceding space is considered as part of the nonnumeric 
literal and not as a separator. 

The separator space may optionally immediately follow any 
separator except the opening quotation mark. In this case, a 
following space is considered as part of the nonnumeric 
literal and not as a separator. 

Any punctuation character which appears as part of the 
specification of a PICTURE character-string or numeric literal is 
not considered as a punctuation character, but rather as a symbol 
used in the specification of that PICTURE character-string or 
numeric literal. PICTURE character-strings are delimited only by 
the separators space, comma, semicolon, or period. 

These rules do not apply to the characters within nonnumeric 
literals, picture strings, or comments. 

Character-Strings 



A character-string is a sequence of one or more characters that 
form a COBOL word, literal, picture string, or comment. A 
character-string is delimited by separators. 

COBOL Words 



A COBOL word is a character-string of not more than 20 characters 
which form either a user word or a reserved word All words are 
one or the other. 
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User Words 



User words are composed of the alphabetic characters. ._. 

and the hyphen character. A user word must not begin or end with a 
hyphen. With the exception of paragraph-name. 

level-number and segment-number. all user-defined warns must 
contain at least one alphabetic character. There are twelve types 
of user words: 



the numbers 

>r end with ( 

sec t i on-name, 

words must ~ 



program-name 
f i le-name 
record-name 
data-name 
paragraph-name 
sec t i on-name 



cond ition-name 
inde x-name 
alphabet-name 
text-name 
level-number 
segment -number 



Pr ograrr.-Name 

The program-name identifies the COBOL source and object program. 
The name must contain at least one alphabetic character. Only the 
first 6 characters are associated with the object program. 

Fi le-Name 

File-names are the internal names for files accessed by the source 
program. They are not necessarily the same as the external names 
given- to the files. File-names must contain at least one 
alphabetic character and must be unique. 

RecorJ-Name 

Record-names are used to name data records within a file. They 
must contain at least one alphabetic character and< if not unique, 
must be made unique by qualification with the file name. 

Data-Name 

A group of contiguous characters or a word of binary data treated 
as a unit of data is called a data item, named by a data-name. A 
data-name must contain at least one alphabetic character. 
References to data items must be made unique by qualification or 
the appending of subscripts (or indices) or both. Complete unique 
references to data items are called identifiers. 
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Paragraph-Name 

A paragraph-name is a procedure name that identifies the beginning 
of a set of COBOL procedural sentences. If not uniquei a 
paragraph-name must be made unique by qualification with a 
section-name. 



Section-Name 

A section-name is a procedure name that identifies the beginning 
of a set of paragraphs. Section-names must be unique. 

Condition-Name 

A condition-name may be defined in the SPECIAL-NAMES paragraph 
within the Environment Division or in a level-number 88 
description within the Data Division. 

A SPECIAL-NAMES condition-name is assigned to ON STATUE? or OFF 
STATUS of one of eight system software switches. 

A level-number 88 condition-name is assigned to a specific value. 
set of valuesi or range of values within a complete set of values 
that a data item may assume. The data item itself is called a 
conditional variable. 

A condition-name is used only in conditions as an abbreviation for 
the- relation condition which assumes that the associated switch or 
conditional variable is equal to one of the set of values to which 
that condition-name is assigned. 



Index-Name 

An index-name names an index associated with a specific table It 
must contain at least one alphabetic character and must be unique 

Alphabet-Name 

An alphabet-name is used to specify a character code set. It must 
contain at least one alphabetic character and must be unique. 



Te x t-Name 

A text-name is the name of a COBOL library text file It must 
correspond exactly to a valid file access-name as described in the 
operating system documentation. 
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Level -Number 



withi^TTl is K Used t0 specify the position of a data item 
within a data hierarchy. A level-number i « * nnn- «^ * a T 
number in the range 01-49, 66, 77 or 88 two-digit 

descrIptTon r entr;- ?? *"" 88 identif « s P* cial Properties of a data 



y- 



Segment-Number 



tection en irifr on 5P ^ if i eS the se 9-ntation classification of 
section. It is a one- to two-digit number in the range 01-99. 



a 
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Reserved Words 



The structure of COBOL governs the use of certain COBOL words 
called reserved words. Reserved words, recognized by the COBOL 
compiler, aid the compiler in determining how to generate a 
program. A programmer cannot devise a reserved word for a COBOL 
program; he must use the word designated by the format of the 
language. A reserved word must not appear as a user-defined word 
within a program. A list of all reserved words recognized by the 
compiler is shown in Appendix B. 

Five kinds of reserved words are recognized by the compiler: 

Key words 
Optional words 
Connectives 
Figurative constants 
Special-characters 

Key Words 

Key words are required elements of COBOL formats. Their presence 
indicates specific compiler action. 

Optional Words 

Optional words are optional elements of COBOL formats Their 
presence has no effect on the object program. 

Connectives 

The connectives OF and IN are used interchangeably to connect 
qualifiers to a user word. The words AND and OR are logical 
connectives and are used in the formation of conditions. 
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Figurative Constants 

context t„ uhich th . »:;:;:*;;, b c ; »|;pj i".""'-'*". tj.th. 

represent values, not nt ara i _ rvote that ^iguratives 

«»« to d.li«it a n„"nu me i c It e" . Ur sp"cr i5 T,U, % 0UDTE " nn0t "< 
ana so forth. Singular a» t f not a "Parator, 

•quivunt and „, De use. T"5„?£^ Ji-fc J""* "•"""»» •» 

ZERO 

ZEROS 

ZEROES 

Represents the value or one n-r «„„„ 

depending on context * 2er ° <0) characters, 

SPACE 
SPACES 



Represents one or more space { > c h 



aracters. 



HIGH-VALUE 
HIGH-VALUES 

Represents one or more o* fk„ k : t *. V 

collating sequence (h^deciLl FF). 9h6St Ch — te - *" the ^ 

LOW-VALUE 
LOW-VALUES 



Represents one or more of the lowest charact 
collating sequence (hexadecimal 00). "* 



ers in the 



QUOTE 
QUOTES 



Represents one or more quote < " ) characters. 
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ALL literal 

I 

^ Represents one or more of the characters comprising the literal 

The literal must be either a nonnumeric literal or a figurative 
constant. When a figurative constant is used, the word ALL is 
redundant. 

When a figurative constant represents a string of one or more 
characters, the length of the string is determined by the compiler 
from context according to the following rules: 

1. When a figurative constant is associated with another data 
item, as when the figurative constant is moved to or compared 
with another data item, the string of characters specified by 
the figurative constant is repeated character-by-character on 
the right until the size of the resultant string is equal to 
the size in characters of the associated data item. This is 
done prior to and independent of the application of any 
JUSTIFIED clause that may be associated with the data item. 

2. When a figurative constant is not associated with another 
data item, as when the figurative constant appears in a 
DISPLAY or STOP statement, the length of the string is one 
character. 

_^~ A figurative constant may be used wherever a literal appears in a 
^** format, except that whenever the literal is restricted to having 

only numeric characters in it, the only figurative constant 

permitted is ZERO (ZEROS, ZEROES). 

Each' reserved word which is used to reference a figurative 

constant value is a distinct character-string with the exception 

of the construction 'ALL literal' which is composed of twa 
distinct character-strings. 

Special Characters 

The special character words are the arithmetic operators and 
relation characters: 

+ Plus sign (indexing) 

- Minus sign (indexing) 

> Greater than 

< Less than 

° Equal to 
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Li teral s 



dli «* re either nonnumeric or numeric. 

Nonnumeric Literals 

A nonnumeric literal i« a r har. = ,- *.,,_ a. • 

characters in t „e COBOL * i '™? Z a l°T, '" V",, *"* 
characters within the =t r !' " mau be UEelJ Quote 

ju.t.. The v.,„i n ., th t ;. ,'rera! V.'tlV'IZZV 1ltT f 'ZtHZ" 
characters. literal «, certain from 1 to 2047 

Examp 1 es . 

Literal Value 



"AGE?" AGE"? 

TWENTY""?" "TWENTY"? 



II II tl 

II II II tl II 



illegal (odd number of quotes) 

/•'■ 

Numeric Literals * 

v 

^ara^W-strinr'NuLrirjIt 6 ::"! 5 3 """"" V * lu " »°* * 
following rules NUmerlC llte ™ls are composed according to the 

1. The literal must contain from 1 to IB digits. 

2 In. flrsTcnar^er "^" ' *>">>' >*" " "^ *'»" if » » 

Ue"^C IAL I N i^S D P a C r^ra^ INT " ^ "-» >* "^^Tr, 
Examp les: 

1234 
+ 1234 
-1. 234 

. 1234 
+ 1234 
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Picture String 



T '* S ^" 9 »""**■ °< certain combinations of characters 

from the COBOL character set used as symbols Any punctuation 

character appearing as part of a picture string is considered to 
be a symbol, not a punctuation character. 

Comment-Entry 



A 
may 



comment-entry is an entry in the Identification Division that 
contain any characters from the computer's character set. 



System Names 



Syste.n names identify certain hardware or software system 
components. System names consist of device-names and switch-names. 

Device-Names Component 



PRINT 
INPUT 



printer or print file 
input only device 



OUTPUT output only device 

INPUT-OUTPUT input-output device 

RANDOM disc 

Switch-Names Component 



SWITCH-1 



SWITCH-8 



software switches 
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THE P?*C3RAM STRUCTURE 



'ourte Fcrmct 



COBOL programs are accepted as a sequence of formatted lines (or 
records) of 80 characters or less. Each line is divided into five 

areas : 



Columns 


Area 


1-6 

7 

8-11 

12-72 

73-80 


sequence number 

ind icator 

A 

B 

identification 



The sequence number and identification areas are used for clerical 
and documentation purposes. They are ignored by the compiler. 

The indicator area is used for denoting line continuation, 
comments/ and debugging 

Ar?as A and B contain the actual program according to the 
folloujiny rules: 

1. Division headers, section headers, paragraph headers, 
section-names, and paragraph-names must begin in area A. 

2. The Data Division level indicator FD and level-numbers 01 and 
77 must begin in area A. Other level-numbers may begin in area 
A or area B, although B is preferable. 

3. The key word DECLARATIVES and the key words END DECLARATIVES, 
precede and follow, respectively, the declaratives portion of 
the Procedure Division. Each must appear on a line by itself 
and each must begin in area A and be followed by a period and 

a space. 

4. Any other language element must begin in area B unless it 
immediately follows, on the same line, an element in area A. 
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Continuation of Lines 

* Whenever a sentence, entry, phrase, or clause r?quir:- 5 more t L -n 
one line, it may be continued by starting subsequent j<ne's)'in 
area B. These subsequent lines are called the c ov t .1 n< d t i en 
line(s). The line being continued is called the continued line 
Any word or literal may be broken in such a may that part of it 
appears on a continuation line, according to the following rules: 

1. A hyphen in the indicator area of a line indicates that the 
first nonblank character in area B of the current line is the 
successor of the last nonblank character of the preceding line 
without any intervening space. However, if the continued line 
contains a nonnumeric literal without closing quotation mark, 
the first nonblank character in area B on the continuation 
line must be a quotation mark, and the continuation starts 
with the character immediately after that quotation mark All 
spaces at the end of the continued line are considered part of 
the literal. Area A of continuation line must be blank. 

2. If there is no hyphen in the indicator area of a line, it is 
assumed that the last character in the precsdinq line is 
followed by a space. 

Blank Lines 

^ A blank line is one that is blank in the indicator, A and B areas 

A blank line can appear anywhere in the source program, except 

immediately preceding a continuation line with a hyphen in the 
indicator area. 

Comment Lines 

A comment line is any line with an asterisk <*> in <~h? indicator 
area of the line. A comment line can appear as any line in a 
source program after the Identification Divisicn h^-'er £ny 
combination of characters from the computer's character s*t m--y be 
included in area A and area B of that lme. The asterisk" and the 
characters in area A and area B will te produced on the lis+ina 
but serve as documentation only. 

Successive comment lines are allowed. Continuation of comment 
lines is permitted, except that each continuation line must 
contain an asterisk in the indicator area. 

C— A special form of comment line represented by a slash (/) in the 

indicator area of the line causes page ejection prior to printing 
the comment. 
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Debug g i ng Lines 

A debugging line is any line with a D in the indicator area of the 
line. Any debugging line that consists solely of spaces from area 
A to the identifier aTea is considered to be a blank line. 

A program that contains debugging lines must be syntactically 
correct with or without the debugging lines. 

A debugging line will be considered to have all the 
characteristics of a comment line if the debug option is not 
specified at compiler invocation. 

Successive debugging lines are allowed. Continuation of debugging 
lines is permitted, except that each continuation line must 
contain a D in the indicator area, and character strings may not 
be brokan across two lines. 

Statements 



COBOL statements always begin with a key word called a verb. There 
are three kinds of statements: directive, conditional, and 
imp erat i ve. 

A directive statement specifies action to be taken by the compiler 
during compilation. The directive statements are: 

The COPY and USE statements. 

A conditional statement specifies that the truth value of a 
condition is to be determined and that the subsequent action of 
the object program is dependent on this truth value. The 
conditional statements are: 

An IF statement. 

A READ statement with the AT END or INVALID KEY phrase. 

A DELETE, REWRITE or START statement with the INVALID KEY 
phrase. 

A WRITE statement with the INVALID KEY phrase. 

An arithmetic statement (ADD, COMPUTE, DIVIDE, MULTIPLY, 
SUBTRACT) with the SIZE ERROR phrase. 
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An imperative statement specifies an unconditional action to be 
taken by the object program. The imperative statements are: 

A READ statement without the AT END or INVALID KEY phrase, 

A DELETE, REWRITE or START statement without the INVALID KEY 
phrase. 

A WRITE statement without the INVALID KEY phrase. 

An arithmetic statement (ADD, COMPUTE, DIVIDE, MULTIPLY, 
SUBTRACT) without the ON SIZE ERROR phrase. 

An ACCEPT, ALTER, CLOSE, DISPLAY, EXIT, GO, INSPECT, MOVE, 
OPEN, PERFORM, SET or STOP statement 

Whenever the term imperative-statement appears in the format of a 
COBOL verb, it refers to one or more consecutive imperative 
statements. The sequence ends with a period separator or an ELSE 
associated with an IF verb. 

Sentences 



A sentence is a sequence of one or more statements terminated bg 
the period separator. There are three kinds of sentences 
directive, conditional, and imperative. 

A directive sentence may contain only a single directive 
s tatement. 

A conditional sentence is a conditional statement, optionally 
preceded by a sequence of imperative statements, terminated bu a 
period followed by a space. 

An imperative sentence is one or more imperative s ta cements 
terminated by a period separator. 

Clauses and Entries 



An entry is an item of descriptive or declaratory nature composed 

f of consecutive clauses. Each clause specifies an attribute of the 

entry. Clauses are separated by space, comma, or semicolon 

separators. The entry is terminated by a period separator 
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Paragraphs 



A paragraph is a sequence of an arbitrary number, which may be 
zero, of sentences or entries. In the Identification and 
Environment Divisions, each paragraph begins with a reserved word 
called a paragraph header. In the Procedure Division, each 
paragraph begins with a user-defined paragraph-name. 

Sec t i ons 



A section is a sequence of an arbitrary number, which may be zero, 
of paragraphs in the Environment and Procedure Divisions and a 
sequence of an arbitrary number, which may be zero, of entries in 
the Data Division. In the Environment and Data Divisions, each 
section begins with reserved words called a section header. In the 
Procedure Division, each section begins with a user-defined 
sec ti on-name. 



Di vi s i ons 



Each COBOL program consists of four divisions; each is composed of 
paragraphs or sections. These are the Identification, Environment, 
Data, and Procedure divisions, in that order. All divisions are 
required. Each division begins with a group of reserved words 
called a division header. 
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THE COPY STATEMENT 



The COPY statement provides the facility for copying text from 
user-specified files into the source program. Text is copied from 
the file without change. The effect of the interpretation of the 
COPY statement is to insert text into the source program, where it 
will be treated by the compiler as part of the source program. 

COBOL library text is placed on the COBOL library as a function 
independent of the C030L program and according to operating system 
techniques. 



FORMAT 

COPY text-name. 



The COPY statement must be preceded by a space and terminated by 
the separator period. There must not be any additional text in 
area B following the separator period. 

Text-name is the external identification of the file containing 
the text to be copied. Its format conforms to the rules for 
filename (or pathname) construction of the host operating system 
If the external identification contains any characters that are 
not letters or digits, or if the first character is not a letter, 
then the text-name must be written as a nonnumeric literal and 
enclosed in quotation marks. 



A COPY statement may occur in the 
characterstring or separator may occur except 
statement must not occur within a COPY statement. 



source program anywhere a 



tha- 



COPY 






The compilation of a source program containing COPY statements is 
logically equivalent to processing all COPY statements prior to 
the processing of the resulting source program. 

The effect of processing a COPY statement is that the library text 
associated with text-name is copied into the source program, 
logically replacing the entire COPY statement, beginning with the 
reserved word COPY and ending with the punctuation character 
period, inclusive. 

The library text is copied unchanged. 



Debugging lines are permitted within library text. If a COPY 

statement is specified on a debugging line, then the COPY 

statement will be processed only if the debug optica has been 
specified in the compiler invocation options 
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The text produced as a result of processing a COPY statement may 
not contain a COPY statement. 

The syntactic correctness of the library text cannot be 



independently determined. The syntactic correctness of the entire 
COBOL source cannot be determined until all COPY statements I 
been completely processed. 

Library text must conform to the rules for COBOL source format. 
COPY Examples: 



FILE-CONTROL. 

COPY FLCTRL. 



PROCEDURE DIVISION. 

COPY "INPUTP. C030L' 



^:, 



J 
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IDENTIFICATION DIVISION 
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INTRODUCTION 



The Identification Division must be included in every COBOL source 
program. This division identifies both the source program and the 
resultant object program. In addition, the user may include other 
commentary information. 

FORMAT 

IDENTIFICATION DIVISION. 



FROGPAM-ID. program-name. 

[AUTHOR Ccomment-entry] ... 3 

[INSTALLATION. [ c omment-entry 1 . ,.] 

[DATE-WRITTEN [comment-entry] . ..] 

[SECURITY, [comment-entry] ...] ? 

PROGRAM IDENTIFICATION 



s 



The Identification Division must begin with the reserved words 
IDENTIFICATION DIVISION followed by a period and a space. 

Paragraph headers identify the type of information contained in 
the paragraph. The name of the program must be given in the first 
paragraph, which is the PROGRAM-ID paragraph. The other paragraphs 
are optional and may be included at the user's choice, in the 
order of presentation shown. 
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The PROGRAM-ID Paragraph 



The PROGRAM-ID paragraph/ containing the program-name, identifies 
the source program, the object program, and all listings 
pertaining to a particular program A program-name is a 
user-defined word made up of only those characters from the word 
set. 

A program-name cannot exceed 8 characters in length, and must 
contain at least one alphabetic character located in any position 
within the program-name. Each program-name must be unique 

The AUTHOR, INSTALLATION, DATE-WRITTEN, SECURITY Paragraphs 



The AUTHOR, INSTALLATION, DATE-WRITTEN, and SECURITY paragraphs 
are optional. The programmer may use these paragraphs to document 
information pertaining to the paragraph header. 

The comment-entry may be any combination of characters from the 
computer's character set. The continuation of the comment-entry by 
the use of the hyphen in the indicator area is not permitted; 
however, the comment-entry may be contained on one or more lines. 
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IV 



ENVIRONMENT DIVISION 



/< 

» 
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INTRODUCTION 



The Environment Division describes the hardware configuration of 
the compiling computer (source computer) and the computer on which 
the object program is run (object computer). It also describes the 
relationship between the files and the input/output media. 

The Environment Division must be included in every COBOL source 
program. 

There are two sections in the Environment Division: the 
Configuration Section and the Input-Output Section. 

FORMAT 

ENVIRONMENT DIVISION. 



CONFIGURATION SECTION. 

SOURCE-COMPUTER, computer-name. 

OBJECT-COMPUTER, computer-name. 

C SPECIAL-NAMES, spec ial -names -en try 1. 

I INPUT-OUTPUT SECTION. 

FILE-CONTROL. -Cf i le-c ontrol-entry > .. 

CI-O-CONTROL. input-output-control-entry]]. 
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CONFIGURATION SECTION 



The Configuration Section deals with the characteristics of the 
source computer and the object computer. This section is divided 
into three paragraphs: 

the SOURCE-COMPUTER paragraph, which describes the computer 
configuration on which the source program is compiled 

the OBJECT-COMPUTER paragraph, which describes the computer 
configuration on which the object program produced by the 
compiler is to be run 

the SPECIAL-NAMES paragraph, which relates names used by the 
compiler to user-names in the source program. 



The SOURCE-COMPUTER Paraqraph 



The SOURCE-COMPUTER paragraph identifies the computer upon which 
the program is to be compiled 

A. 

FORMAT %> 

SOURCE-COMPUTER, computer-name. 



Computer-nam? is a usei — defined word and is only commentary. 
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The OBJECT-COMPUTER Paragraph 



i 



The OBJECT-COMPUTER paragraph identifies the computer on .uh.ch the 
program is to be executed. cn the 

FORMAT 

OBJECT-COMPUTER, computer-name 

t, MEMORY SIZE integer {WORDS }] 

<CHARACTERS> 
{MODULES > 

C PROGRAM COLLATING SEQUENCE IS a 1 p hab e t-name 1. 

Computer-name is a user-defined word and is only commentary 
f& The MEMORY SIZE definition is treated as commentary. 
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The SPECIAL-NAMES Paragraph 



The SPECIAL-NAMES paragraph relates names used by the compiler to 
user-names in the source program. 

[SPECIAL-NAMES. [ , swi tch-name 



■CON STATUS IS cond-name-1 COFF STATUS IS c ond-name-21} 3 
■COFF STATUS IS cond-name-2 CON STATUS IS cond-name-1 ]> 

t, alphabet-name IS {STANDARD-DO... 

■CNATIVE > 



E, CURRENCY SISN IS literal-1] 
C, DECIMAL-POINT IS COMMA] .3 



Switch-name may be SWITCH-1, .... SWITCH-8. 

At least one condition-name must be associated with each 
switch-name given. The status of the switch is specified by 
condition-names and interrogated by testing the condition-names. 

The alphabet-name clause provides a means for relating a name to a 
specified character code set and/or collating sequence. The 
alphabet-name definition is treated as commentary! the collating 
sequence is always ASCII. 
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c 



The literal which appears in the CURRENCY SIGN IS literal clause 
is used in the PICTURE clause to represent the currency symbol 
The literal is limited to a single character and must not be one 
of the following characters: 

digits through 9# 

alphabetic characters A, B, C, D, L, P, R, S, V, X, 1, or the 
space; 

special characters '*', '+', '-', ',*, > >, <., ,,, ,., 

/■•/////_/ > \ > > i 

If J* 1 -™™* 1S nDt P resent ' onl W th * currency sign (*) is use d 
in the PICTURE clause. 

The clause DECIMAL-POINT IS COMMA means that the function of comma 
and period are exchanged in the character-string of the PICTURE 
clause and in numeric literals. 
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INPUT-OUTPUT SECTION 



The INPUT-OUTPUT section names the files and external media 
required by an object program and provides information required 
for transmission and handling of data during execution of the 
object program. This section is divided into two paragraphs: 

the FILE-CONTROL paragraph which names and associates the 
files with external media. 

the I-O-CONTROL paragraph which defines special control 



techniques to be used in the object program 

FORMAT 

[INPUT-OUTPUT SECTION. 



FILE-CONTROL. 

<f i 1 e-:ontrol-entry> ... 
C I-0-CONTROL. 

I-O-control-entry 3 3 

The FILE-CONTROL Paragraph 



The FILE-CONTROL paragraph names each file and allows 
specification of other file-related information. 

FORMAT 

FILE-CONTROL. -Cf i 1 e-control-entr y> ... 

The content of the file-control-entry is dependent upon the 
organization of the file named. 
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The Sequential File Control Entry 

FORMAT 

SELECT file-name 

ASSIGN TO device-type, {"external-f i le-name"} 
<data-name-l > 

Z; ORGANIZATION IS SEQUENTIAL] 
Ci ACCESS MODE IS SEQUENTIAL] 
CiFILE STATUS IS data-name-23. 



The SELECT clause must be specified first in the file control 
entry. The clauses which follow the SELECT clause may appear in 
any order. 

^ Each file described in the Data Division must be named once and 

> ^ only once as file-name in the FILE-CONTROL paragraph Each file 

specified in the file control entry must have a file description 
entry in the Data Division. 

The ASSIGN clause specifies the association of the file referenced 
by file-name to a storage medium. 

Device-type must be one of the device names INPUT, INPUT-OUTPUT, 
OUTPUT, PRINT, . or RANDOM according to the operations to be 
performed. 

External-file-name specifies the file access name, r c can be from 
one to thirty characters in length and must be enclosed in 
quotation marks. A name longer than thirty characters will be 
diagnosed as an error. The name may contain any sequence of 
characters supported by the operating system for file access 
names. 

Data-name-1 must be defined in the Data Division as a da'a itam of 
( . category alphanumeric and must not be defined in the Linkage 

Section. Its value at the time of an OPEN statement execrtion will 
be used as the file access name. Data-name-1 may be qualifir.-i. 
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The ORGANIZATION clause specifies the logical structure of a file 
The file organization is established at the time a file i <* created 
and cannot subsequently be changed. 

Records in the file are accessed in the sequence dictated b y the 

file organization. This sequence is specified by 

predecessor-successor record relationships established by the 

execution of WRITE statements when the file is created or 
e x tended 

When the ORGANIZATION clause is not specified, ORGANIZATION IB 
SEQUENTIAL is implied. 

The ACCESS MODE clause specifies the order in which records are 
read ot written. 

If the ACCESS MODE clause is not specified, ACCESS MODE IS 
SEQUENTIAL is implied. 

When the FILE STATUS clause is specified, a value will be moved by 
the operating system into the data item specified by data-name-2 
after the execution of every statement that references that file 
either explicitly or implicitly. This value indicates the status 
of execution of the statement. 

Data-name-2 must be defined in the Data Division as a 
two-character data item of the category alphanumeric and must not 
be defined in the File Section. Data-name-2 may be qualified. 
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The Relative File Control Entri 



FORMAT 

SELECT file-name 



ASSIGN TO RANDOM, {"external-f i le-name"} 
-Cdata-name-1 > 

; ORGANIZATION IS RELATIVE 



ti ACCESS MODE IS < SEQUENTIAL C, RELATIVE KEY IS data-name-23 >1 

■C-CRANDOM > .RELATIVE KEY IS data-name-2 > 
{{DYNAMIO > 



CjFILE STATUS IS data-name-3]. 



The SELECT clause must be specified first in the file control 
entry. The clauses which follow the SELECT clause may appear in 
any order. 

Each file described in the Data Divison must be named once and 
only once as file-name in the FILE-CONTROL paragraph. Each file 
specified in the file control entry must have a file description 
entry in the Data Division. 



CL 



The ASSIGN TO RANDOM clause specifies the association of the 
referenced by file-name to a storage medium. 



file 



External-file-name specifies the file access name and must be 
enclosed in quotation marks. It can be from one to thirty 
characters in length. A name longer than thirty characters will be 
diagnosed as an error. The name may contain any characters 
supported by the operating system for file access names 

Data-name-1 must be defined in the Data Division as a data item of 
category alphanumeric and must not be defined in the Linkage 
Section. Its value at the time of an OPEN statement execution will 
be used as the file access name. Data-name-1 may be qualified 
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Itructu?? AN * ZAT I D ? i? RELATIVE clause specifies the Icgxcal 
structure of a file. The file organization is established at the 
time a file is created and cannot subsequently be changed 

All records stored in a relative file are uniquely identified by 
relative record numbers. The relative record number of a given 
VAl TK SP * Clf f e f thS record ' s logical ordinal position in the 
, a n Te f J rst lo 9i"l record has a relative record number of one 
(1), and subsequent logical records have relative record numbers 



of 2, 3, 4, 

be e accessed M ° DE ClaUSe s P ecifies the order in which records are to 

When the ACCESS MODE IS SEQUENTIAL, records in the file are 
accessed in the sequence dictated by the file organization. This 
sequence is the order of ascending relative record numbers of 
existing records in the file. 

If the ACCESS MODE IS RANDOM, the value of the RELATIVE KEY data 
item indicates the record to fas accessed 

rpi Jiup e irv iV ! fUe iS *° bB referen "d by a START statement, the 
HtLATlVE KEY phrase must be specified for that file. 

When the ACCESS MODE IS DYNAMIC, records in the file may be ' 
accessed sequentially and/or randomly. \, r / 

~ = nr?!ri 2 -Tk 5 *^"!* bB defined ir > * record description entry 
dill ili! o «. ! file-name. The data item referenced by 

•r U ! bB deflned a5 an unsigned integer. Data-name-2 
may be qualified. 

cL, t ,c!, T A A, CESS M °? E clau5e is not specified, ACCESS MODE IS 
SEQUENTIAL is implied. 

When the FILE STATUS clause is specified, a value will be moved by 
the operating system into the data item specified by data-name-3 
after the execution of every statement that references that file 
either explicitly or implicitly. This value indicates that status 
of execution of the statement. 



as 



Data-r.ame-3 must be defined in the Data Division 
two-character data item of the category alphanumeric and must not 
be defined in the File Section. 
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we 



The Indexed File Control Entry 

FORMAT 

SELECT file-name 



ASSIGN TO RANDOM, {"external-f i 1 e-name"} 
{data-name-1 > 

C; ORGANIZATION IS INDEXED 



Ci ACCESS MODE IS {SEQUENT I AL> 3 

{RANDOM > 
{DYNAMIC > 



.RECORD KEY IS data-name-2 



C; ALTERNATE RECORD KEY IS data-name-3 [WITH DUPLICATES]] 
C;FILE STATUS IS data-name-4D. 



The SELECT clause must be specified first in the file control 
entry. The clauses which follow the SELECT clause may appear in 
any order. 

Each file described in the Data Division must be named once and 
only once as file-name in the FILE-CONTROL paragraph. 

Each file specified in the file control entry must have a file 
description entry in the Data Division 

The ASSIGN TO RANDOM clause specifies the association of the file 
referenced by file-name to a storage medium. 

External-file-name specifies the file access name and must be 
£ - enclosed in quotation marks. It can be from one to thirty 
characters in length. A name longer than thirty characters will be 
diagnosed as an error. The name may contain any characters 
supported by the operating system for file access names 
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?!t^nr!? C ~ r bS deflned in the D ^a Division as a data item of 
g rX^ I"' ™ 5t "°* b * ^fined in the u fl 

be used' -s"Ih* J?? ° f 3n ° PEN • t **»n.ent execute wUl 

be used c5 the file access name. Data-name-1 may be qualified. 

The ORGANIZATION IS INDEXED dausp snor 4 £■; «^ .s.*. , 

of a fiip it,. *<i xr,i ' CA, r Clause specifies the logical structure 
is created InH ^ganization is established at the time a file 
is created and cannot subsequently be changed. 

be e accesfed' 1DDE ^^ SpeCifie5 the "<" *" which records are to 

When the ACCESS MODE IS SEQUENTIAL, records in the fii* flr » 

Tn5:"J d file's 6 t S h BqUenCe ^^^^ ^ the flle - S -i!aUo f ^ P 7r 
lalles within . «q«nce is the order of ascending record Ke y 

values within a given key of reference. 

If the ACCESS MODE IS RANDOM, the value of the RECORD KEY data 
item indicates the record to be accessed. 

When the ACCESS MODE IS DYNAMIC, records in the file mau h* 
accessed sequentially and/or randomly. "^ b£? 

HJ,t e ACCESS MDDE clause is not specified, ACCESS MODE iq 
SEQUENTIAL is implied. H flULtbb M0DE Is 

record^eu^or^hp 1 ^? 6 5peCifieS the ™ c °^ k.y that is the prime 

lath to rL!^ le ' ThlS Prime record ke « Provides an access 
path to records in an indexed file. 

An ALTERNATE RECORD KEY clause specifies a record key that is an 
alternate record key for- the file. This alternate record keu 
provides an alternate access path to records in an indexed file 

Ih!^ dat i '""'P** " °* data-name-2 and data-name-3 as well as 
their relative locations within a record must be the same as that 
used when the file was created. The number of alternate keys Jor 
created. 6 -1§ ° ** "" ""* aS that USed whe " th * *"* was 

hp 6 nf* S i ! 6mS refe ]; enced b « data-name-2 and data-name-3 must each 

Hot* J a l a data it6m ° f the cate 9°^ alphanumeric within a 
record description entry associated with that file-name. 

size'"" varilbfe. 6 * 2 "" data - name " 3 ca " Ascribe an item whose 



s.. 
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Data-name-3 cannot reference an item whose leftmost character 
position corresponds to the leftmost character position of an item 
referenced by data-nsme-2 or by any other data-name-3 associated 
with this file. 

Data-name-2 and data-name-3 may be qualified. 

The WITH DUPLICATES phrase specifies that the value of the 
associated alternate record key may be duplicated within any of 
the records in the file. If the WITH DUPLICATES phrase is not 
specified, the value of the associated alternate record key must 
not be duplicated among any of the records in the file. 

When the FILE STATUS clause is specified; a value will be moved by 
the operating system into the data item specified by data-name-4 
after the execution of every statement that references that file 
either explicitly or implicitly. This value indicates the status 
of execution of the statement. 

Data-name-4 must be defined in the Data Division as a 
two-character data item of the category alphanumeric and must not 
be defined in the File Section. 
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The 1-0 CONTROL Paragraph 



The I -0 CONTROL paragraph specifies the memory area which is to be 
shared by different files. S to be 



FORMAT 
I-0-CONTROL. 



I; SAME AREA FOR file-name-1 [, file-name-23 ...3 



The I-U-CONTROL paragraph is optional. 




More than one SAME clause may be included in a program; however, a , 
file-name must not appear in more than one SAME AREA clause 



The files referenced in the SAME AREA clause need not all have the 
same organization or access. 



!.-•.:»- 



9 
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DATA DIVISION 



C 
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INTRODUCTION' 



The Data Division describes the data th*fr <-h D „h 

accept as input, to manipulate the object program is to 

output. Data to be proc essed f In !' in tn SJ****', ° T t0 P™ d "" •* 

p bseo fails into three categories: 

That which is contained in files and P n + »v.* 

internal memory of the rnm!..* * enters or leaves the 

y Dt the computer from a specified area or 



areas 



I!:;.,..:.}.!. is r ;:;;i n °: ,d .t.J:, t r , " lig , and pia » d ^° 

f.t».t for .„*»„* r.^;j; ng * p t ;;; :;. ° r piaced int ° "«*«» 

Constants which are defined by the user. 

i r, e FILE SECTION dofinee $-k = ,-.-_.._.■- „ 

file is defined bu 8 f 1 , structure of data files Each 
record descriotLn. p d "" l P tl0 " "try and one or more 
i-^ate ' the R !" rd H Ascriptions are fatten 

*=i.e*y roiiowing the file description entry. 

The WORKING-STORAGE SECTION j„„ii,« 

noncontiguoup data n.,« ,t \ describes records and ' 
files hu? are d „. .I " e n0t ""•* ° f "t'T-n.l date ^J 
describes ^^r^r^: valuH 5 " as^ned'ln'th" ^° 
jr.,™ and do not chance durln,":;.".:.^?}.;'.-'"*!.' object 

IvIi^hJf S » t SeCt f°^ U U5ed for "'scribino data that is 

Division"^ renc to" nese^ata^tel*"*' '"^ P "»<"" 

index-names, no such ™ B P :° 9ram " In th. case of 
Index-names in ?he L c f^^P^nc e is established, 
separate indices * Callln 9 Program always refer to 
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Data items defined in the Linkage Section of the called 
program may be referenced within the Procedure Division of the 
called program only if they are specified as op?rands of the 
USING phrase of the Procedure Division header or are 
subordinate to such operands, and the object program is under 
the control of a CALL statement that specifies a USING phrase. 

FORMAT 

DATA DIVISION. 

CFILE SECTION. 



Cf ile-descript ion-entry 
[record-description-entry 3 ...3 

CWORKING-STORAGE SECTION. 



[77-level-descript ion-entry 3 
[record-description-entry 3 

CLINKAGE SECTION. 



C77-level-description-entry 3 ... 33 
Crecord-description-entry 3 



c 
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FILE SECTION 



The File Section header is followed by a file description entry 
consisting of a level indicator (FD), a file-name and a series of 
independent clauses. The FD clauses specify the size of the 
logical and physical records/ the presence or absence of label 
records* the value of label items. and the names of the data 
records which comprise the file. The entry itself is terminated by 
a period. 



In a 

h i ghes 



COBOL program the file description entry (FD) represents the 
t level or organization in the File Section. 



FORMAT 

FILE SECTION 



Cfi le-description— entry 
[record-description-entry] 
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The File Description Entry 



The File Description furnishes information concerning the physical 
structure, identification, and record name pertaining to a oiven 
file. 



FORMAT 

FD file-name 

C; BLOCK CONTAINS Cinteger-1 TO] integer-2 {RECORDS >3 

{CHARACTERS} 



L; RECORD CONTAINS Cinteger-3 102 integer-4 CHARACTERS] 

: LABEL {RECORD IS > {STANDARD> 
{RECORDS ARE> {OMITTED> 



Ci VALUE OF LABEL IS [ 1 i tera 1-U 3 



C;DATA {RECORD IS > data-name-1 C, data-name-23 . . 1, 
{RECORDS ARE> 



The level indicator FD identifies the beginning of a file 
description and must precede the file-name 

The clauses which follow the name of the file are optional in many 
cases, and their order of appearance is not significant. 

One or more record description entries must follow the file 
description entry. 

A file description entry must end with a period separator. 
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The ELOCK CONTAINS Clause 

The BLOCK CONTAINS clause specifies the size of a physical record 

FORMAT 

BLOCK CONTAINS Cinteger-1 TOD integer-2 {RECORDS > 

{CHARACTERS} 



This clause is required except when: 

A physical record contains only one complete logical record 

The device assigned to the file has only one physical record 
size. 

The device assigned to the file has a standard record size, 
although the device may have more than one physical record 
size. In this case, the absence of this clause denotes the 
standard physical record size. 

The size of the physical record may be stated in terms of RECORDS, ^^J 
unless one of the following situations exist, in which case the 
RECORDS phrase must not be used: 

In mass storage files where logical records may extend across 
physical records. 

The physical record- conta ins padding. 

Logical records are grouped in such a manner that an 
inaccurate physical record size would be implied. 

When the word CHARACTERS is specified, the physical record size is 
specified in terms of the number of character positions required 
to store the physical record. regardless of the types of 
characters used to represent the items within the physical record. 

If only integer-2 is shown, it represents the exact size of the 
physical record. If integer-1 and integer-2 are shown, they refer 
to the minimum and maximum size of the physical record, 
respec ti vely . 
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The RECORD CONTAINS Clause 

The RECORD CONTAINS clause specifies the size of the data records 

FORMAT 

RECORD CONTAINS Cinteger-1 TOD integer-2 CHARACTERS 



The size of each data record is completely defined with the record 
description entry, therefore this clause is never required. When 
present, however, the following notes apply: 

Integer-2 may not be used by itself unless all the data 
records in the file have the same size In this case integer-2 
represents the exact number of characters in the data record. 

If integer-1 and integer-2 are both shown, they refer to the 

minimum number of characters in the smallest size data record 

and the maximum number of characters in the largest size data 
record, respectively. 

The size is specified in terms of the number of character 
positions required to store the logical record, regardless of 
the types of characters used to represent the items within the 
logical record. The size of a record is determined by the sum 
of the number of characters in all fixed length elementary 
items plus any filler characters generated between elementary 
items because of the SYNCHRONIZED clause. 
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The LABEL RECORD Clau 



se 



The LABEL RECORD clauce an or •) * ,• „^ u *.l. 

clause specifies whether labels are present. 

FORMAT 

LABEL {RECORD IS > -CSTANDARD> 
{RECORDS ARE> -COMITTED > 



This clause is required in every file description ent 



ry. 



or the device t 



S I AN ? A ^ 5 P ecifies that labels exist for the file o 

which the file is a**inn*A ~~a *.». , .. , rixe o 

c ■!**-.«, ... assi 9 ned and the labels conform to the ODeratino 

system specification. STANDARD must be specif p f 9 

assigned to a RANDOM device. specified for files 

OMITTED specifies that no explicit labels exist for the file or 
the device to which the file is assigned. 



The VALUE OF Clause 



FORMAT 

VALUE OF LABEL IS literal-1 

This clause is treated as commentary. 

L^L C RECOR D S U c S laC:e. *' ^^ " ° MITTED " •»«»«- i" the 
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The DATA RECORDS Clause 



The DATA RECORDS clause serves only as documentation fo the names 
of data records with their associated file. 



FORMAT 

DATA {RECORD IS > data-name-1 C , data-name-2D. 
{RECORDS ARE> 



Data-name-1 and data-name-2 are the names of data records and must 
have 01 level-number record descriptions, with the same name, 
associated with them. 

The presence of more than one data-name indicates that the file 
contains more than one type of data record. These records may be 
of differing sizes, different formats, etc. The order in which 
they are listed is not significant. 



Conceptually, all data records within a file share the same area 
This is in no way altered by the presence of more than one type of 
data record within the file. 
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WORKING- STORAGE SECTION 



The Working-Storage Section is composed of the section header, 
fuiiuwed by data description entries for 77 level description 
entries and/or record description entries. 

The data-name of a 01-level data description entry in the 
Working-Storage Section must be unique since it cannot be 
qualified. Subordinate data-names need not be unique if they can 
be made unique by qualification. 

FORMA 1 

WORKING-STORAGE SECTION. 



[77-level-description-entry] 
Trecord-description-entry 1 



LINKAGE SECTION 



The structure of the Linkage Section is the same as for the 
Working-Storage Section, beginning with a section header, followed 
by data description entries for noncontiguous data items and/or 
record description entries. 

Each Linkage Section record-name and noncontiguous item. name must 
be unique within the called program since it cannot be qualified. 

FORMAT 

LINKAGE SECTION 



^. 



C 77- 1 eve 1-de script ion -en try 1 
Crecord-description-entry 3 
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RECORD DESCRIPTION ENTRY 



A record description entry consists of a set of data description 
entries which describe the characteristics of a particular record. 
Each data description entry consists of a level-number followed by 
a data-name and a series of independent clauses, as required 

FORMAT 
{data-description-entry} . . . 

Level-Numbers 



The first data description of a record must have a level-number of 
01 or 1# and must start in area A of a source line. 

Each data description entry can be subdivided into multiple data 
description entries, each having the same level-number; which must 
be greater than the level-number of the subdivided entry, but less 
than SO. Level-numbers do not necessarily have to be successive, 
Thus, a record is a hierarchy of data description entries 

Elementary Items 



Any data description entry which is not further subdivided is 
called an elementary item. A record itself may be an elementary 
item, consisting of a single level 01 data description entry. A 
subdivided data description entry with its subdivisions is called 
a group and is non-elementary. Therefore, a group includes all 
group and elementary items following it until a level-number less 
than or equal to the level-number of that group is encountered. 

Note that certain clauses of the data description entry may occur 
only in elementary items. They may not occur in 01-level entry as 
they may affect the subdivisions of that entry. An elementary item 
must have either a PICTURE clause or INDEX usage; it may not have 
both. 
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77 LEVEL DESCRIPTION ENTRY 



In the Working-Storage and Linkage Sections, a special 
level-number of 77 can be used in data description entries which 
are not subdivisions of other items, and are not themselves 
subdivided. These data description entries specify noncontiguous 
data items. Such a data description entry is elementary. 

?„ 77 i^Li e5CTipti ° n 6ntry mu5t conta *" a data name and either 
the PICTURE clause or the USAGE IS INDEX clause, but cannot 
contain an OCCURS clause. Other clauses are optional and can be 
used tr complete the description of the item if necessary. 

FORMAT 
data-description-entry 



Vi>*S 
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THE DATA DESCRIPTION ENTRY 



A data description entry specifies the characteristics of a 
particular item of data. 

FORMAT 1 

level-number -Cdata-name-1} 
{FILLER > 



C; REDEFINES data-name-2] 



[; {PICTURE} IS character-string] 
{PIC > 

[; [USAGE IS3 {COMPUTATIONAL > 

{COMP > 

{COMPUTATIONAL-l> 
{COMP-1 > 

{COMPUTATIONAL-3> 
{COMP-3 > 

{DISPLAY > 
{INDEX > ] 



Li [SIGN ISD {TRAILING} [SEPARATE CHARACTER] 3 



[.{OCCURS {integer-1 TIMES > 
{integer-1 TO integer-2 TIMES DEPENDING ON data-name-3> 



[INDEXED BY index-name-1 [, inde x-name-23 . 33 



[; {SYNCHRONIZED} [LEFT 3 
{SYNC > [RIGHT]] 
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I, {JUSTIFIED} RIGHTD 
-CJUST > 

Li BLANK WHEN 2ER03 

[;VALUE IS literal] 



FORMAT 2 

66 data-, ame-1; RENAMES data-name-2 [{THROUGH} da ta-name-3] . 

{THRU > 

FORMAT 3 

SB condition-name; {VALUE IS > literal-1 [{THROUGH} literal-23 

{VALUES ARE> -CTHRU > 

[, literal-3 [<THROUGH> literal-433 
•CTHRU } 

The clauses may be written in any order with two exceptions 

the data-name-1 or FILLER clause must immediately follow the 
level-number; 

the REDEFINES clause, when used, must immediately follow the 
data-name-1 clause. 

The PICTURE clause must be specified for every elementary item 
except an index data item, in which case use of this clause is 
prohib i ted. 

The words THRU and THROUGH are equivalent 

The clauses SYNCHRONIZED, PICTURE, JUSTIFIED, and BLANK WHEN ZERO, 
must not be specified except for an elementary data item. 
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Format 3 is used for each condition-name. Each condition-name 
requires a separate entry with level-number 88. Format 3 contains 
the name of the condition and the value, values, or range of 
values associated with the condition-name The condition-name 
entries for a particular conditional variable must follow the 
entry describing the item with which the condition-name is 
associated. A condition-name can be associated with any data 
description entry which contains a level-number except the 
f ol lowing: 

Another condition-name. 

A group containing items with descriptions including 
JUSTIFIED, SYNCHRONIZED or USAGE (other than USAGE IS 
DISPLAY). 

An index data item. 

A level 66 item. 

Each data description entry must end with a period separator 
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The Level-Number 



Tr.e level-number shows the hierarchy of data within a logical 
record. ' n = A ** i *■ * — — -• a. _• _ . . . . .. .._ *» 

storage 

c lause. 



record. In addition, it is used to identify entries for working 
storage items, linkage items, condition-names and the RENAMES 



FORMAT 

level -number 

A level-number is required as the first element in each data 
description entry. 

Data description entries subordinate to an FD entry must have 
level-numbers with the values 01 through 49, 66 or 88. 

Data description entries in the Working-Storage Section and 
Linkage Section must have level-numbers with the values 01 through 
4?i 66, 77 or 88. 

descrrtion^^ ^ identifies the fir5t en ^y in each record ■' 
Level-number 66 is assigned to identify RENAMES entries. 

Level-number 77 is assigned to identify noncontiguous working 
storage data items and noncontiguous linkage data items. 

Level-number 88 is assigned to identify condition-names associated 
with a conditional variable. 

Multiple level 01 entries subordinate to any given level indicator 
FD, represent implicit redefinitions of the same area. 
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The Data-Name or FILLER Clause 



A data-name specifies the name of the data being described The 
word FILLER specifies an elementary item of the logical record 
that cannot be referred to explicity. 

FORMAT 

<data-name> 
{FILLER > 



A data-name or the key word FILLER must be the first word 
following the level-number in each data description entry 

The key word FILLER may be used to name an elementary item in a 
record. Under no circumstances can a FILLER item be referred to 
explicitly. However, the key word FILLER may be used as a 
conditional variable because such use does not require explicit 
reference to the FILLER item, but to its value. 

The key word FILLER may not be used in data description entries 
with a 1, 01, 77, or 88 level-number. 
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The REDEFINES Clause 



The REDEFINES clause allows the same computer storage are>a to be 
described by different data description entries. 

FORMAT 

level-number data-name-1; REDEFINES data-name-2 



NOTE Level-number, data-name-1 and the semicolon are shown in 
the above format to improve clarity. Level-number and 
data-name-1 are not part of the REDEFINES clause. 

The REDEFINES clause, when specified, must immediately follow 
data-name-1. 

The level-numbers of data-name-1 and data-name-2 must be identical 
but must not be 66 or 88. 

This clause must not be used in level 01 entries in the File 
Sec t i on. 

The data description entry for data-name-2 cannot contain a 
REDEFINES clause. Data-name-2 may be subordinate to an entry which 
contains a REDEFINES clause. The data description entry for 
data-name-2 cannot contain an OCCURS clause. However, data-name-2 
may be subordinate to an item whose data description entry 
contains an OCCURS clause. In this case, the reference to 
data-name-2 in the REDEFINES clause may not be subscripted or 
indexed Neither the original definition nor the redefinition can 
include an item whose size is variable as defined in the OCCURS 
c lause. 

No entry having a level-number numerically lower than the 
level-number of data-name-2 and data-name-1 may occur between the 
data description entries of data-name-2 and data-name-1. 

Redefinition starts at data-name-2 and ends when a level-number 
less than or equal to that of data-name-2 is encountered. 

When the level-number of data-name-1 is other than 01, it must 
specify the same number of character positions that the data item 
referenced by data-name-2 contains. It is important to observe 
that the REDEFINES clause specifies the redefinition of a storage 
area, not of the data items occupying the area. 



PAGE 62 



Multiple redefinitions of the same character positions are 
permitted. The entries giving the new descriptions of the 
character positions must follow the entries defining the area 
being redefined without intervening entries that define new 
character positions. Multiple redefinitions of the same character 
positions must all use the data-name of the entry that originally 
defined the area. 

The entries giving the new description of the character positions 
must not contain any VALUE clauses except in condition-name 
entries. 

Multiple level 01 entries subordinate to any given level indicator 
represent implicit redefinitions of the same area. 
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The FICTURE Clause 



The PICTURE clause describes the General rh„ * • . 
edating requirements of an elementary itll ' ^ * * 1C 5 an< 



FORMAT 

*--5I UR f > IS charact "-string 
-CPIC > 

level 1:7URE Cl£USe "" bP «P«ified only at the elementary item 

A character-string consists of certain a n nila k, 

characters in the COBOL character HI I! combinations of 

allocable combinations determi" JheC III "*** ** *^b°ls. The 

item. kS,faine the category of the elementary 

The maximum number of character* a n.,,„j 

is 30 cnaracters allowed in the character-string 

The PICTURE clause must be snerifiow x 

except an index data item it t ■ ! * Very el ***ntary item *. ^ 

prohibited. m ' ln Whlch case U5e o^ this clause is *-* 

PIC is an abbreviation for PICTURE. 

alphabetic 

numeric 

al phanumer i c 

alphanumeric edited 

numeric edited 

To define an item as alphabetic: 

and S /or C 'B RE eh - r - c *"--*^np can only contain the symbols 'A', 



ts contents when reDrp<sor>4-ow .; ~ _j. _■ _. 

my combination or 5 jJlTT!/ - ** f ° Tmat mU! 

.Inh-Ui. _. ,. e twenty-six (26) letters of the F 

Upt.at-et and the space from the COBOL character set. 
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To define an item as numeric: 

Its PICTURE character-string can only contain the symbols '9', 
'P'i 'S', and 'V. The number of digit positions that can be 
described by the PICTURE character-string must range from 1 to 
16 inclusive; and 

If unsigned, its contents when represented in standard data 
format must be a combination of the Arabic numerals '0', '\', 
'2', '3', '4', '5', '6', '7', 'B', '9'; if signed, the item 
may also contain a '+', '-', or other representation of an 
operational sign. 

To define an item as alphanumeric: 

Its PICTURE character-string is restricted to certain 

combinations of the symbols 'A', 'X', '9', and the item is 

treated as if the character-string contained all X's. A 

PICTURE character-string which contains all A's or all 9's 
does not define an alphanumeric item; and 

Its contents, when represented in standard data format, are 
allowable characters in the computer's character set. 

To define an item as alphanumeric edited: 

Its PICTURE character-string is restricted to certain 
combinations of the following symbols: 'A', 'X', '9', 'B', 
• '0', and '/' (stroke); 

The character-string must contain at least one 'B' and at 
least one 'X' or at least one '0' (zero) and at least one 'X' 
or at least one '/' (stroke) and at least one 'X'; or 

The character-string must contain at least one '0' (zjro) and 
at least one 'A' or at least one '/' (stroke) and at least one 
'A'; and 

The contents when represented in standard data format are 
allowable characters in the computer's character set 
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To define an item as numeric edited: 

ll S u- P J CTURE character-string is restricted to r Pr t a ,- n 

r 0m C thror2er y ^°oreIed e ■"""J"' combinations^ define 
trom order of precedence of symbols and the editing rules; 

pJcTURE m rhI.jr dl "J t .P" lt *»n« that can be represented in the 
PICTURE character-string must range from 1 to IB inclusive, 

ist%o^r<z<r s ^: 9 <:r c .r* min . r i r? t •- ;°\^- -/< 

currency symbol. ' ' ' 'DB', op 

oe one of- the numerals. >"U3v, 

characte'r^p^itio^^occuoLT fll SiZ<? me3nS th ^ "umber of 
data #n^L* • i * occupied by the elementary item in standard 

" ' ' <stroke), '0', '+', '_/ -_ + ,,,, „ r ' z ' 

indicates the number of cn n.lrnf currency symbol 

Note that the foHo^g \ mb ^a I ^^.^"^"Sc'/'ir' ^^^^ 
PICTURE: 'S', 'V, '. ', 'CR', and 'DB' * given 

Each 'A' in the character-string represents * rh „„, 
R...ti.„ .hich can contain onl„ a UtlVlVill .U^lVlt". 

Each 'B' in the charac ter-strino resro«onfe ~k ±. 

Dositinn intn ..h.'~h iv , ' '"H represents a character 

position into which the space character will be inserted. 



v 
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Each 'P' indicates an assumed decimal scaling position and is 
used to specify the location of an assumed decimal point when 
the point is not within the number that appears in the data 
item. The scaling position character 'P ' is net counted in the 
size of the data item. Scaling position characters are countad 
in determining the maximum number of digit positions (18) in 
numeric edited items or numeric items. The scaling position 
character 'P ' can appear only to the left or right as a 
continuous string of 'P's within a PICTURE description; since 
the scaling position character 'P' implies an assumed decimal 
point (to the left of 'P's if 'P's are leftmost PICTURE 
characters and to the right if 'P's are rightmost PICTURE 
characters)* the assumed decimal point symbol 'V is redundant 
as either the leftmost or rightmost character within such a 
PICTURE description. The character 'P ' and the insertion 
character '. ' (period) cannot both occur in the same PICTURE 
character-string. If, in any operation involving conversion of 
data from one form of internal representation to another, the 
data item being converted is described with the PICTURE 
character 'P', each digit position described by a 'P ' is 
considered to contain the value zero, and the size of the data 
item is considered to include the digit positions so 
described. 

The letter 'S' is used in a character-string to indicate the 

presence, but neither the representation nor, necessarily, the 

position of an operational sign; it must be written as the 

leftmost character in the PICTURE. The 'S' is counted in 
determining the size (in terms of standard data format 

characters) of elementary items having DISPLAY or 
COMPUTATIONAL usage. 

The 'V is used in a character-string to indicate the location 
of the assumed decimal point and may only appear once in a 
character-string. The 'V does not represent a character 
position and therefore is not counted in the size of the 
elementary item. When the assumed decimal point is to the 
right of the rightmost symbol in the string hne 'V is 
redundant. 

Each 'X' in the character-string is used to represent a 
character position which contains any allowable character from 
the computer's character set. 

Each '2' in a character-string may only be used to represent 
the leftmost leading numeric character positions which will be 
replaced by a space character when the contents of that 
character position is zero. Each 'Z' is counted in the size of 
the item. 
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Each '9' in the character-string represents a character 
position which contains a numeral and is counted in the size 
of the item. 

Each '0' (zero) in the character-string represents a character 
position into which the numeral zero will be inserted. The '0' 
is counted in the size of the item. 

Each '/' (stroke) in the character-string represents a 
character position into which the stroke character will be 
inserted. The '/' (stroke) is counted in the size of the item 

Each ', ' (comma) in the charactei — string represents a 

character position into which the character ', ' will be 

inseTted. This character position is counted in the size of 

the item. The insertion character ', ' must not be the last 
character in the PICTURE character-string. 

When the character '. ' (period) appears in the 
character-string it is an editing symbol which represents the 
decimal point for alignment purposes and in addition/ 
represents a character position into which the character '. ' 
will be inserted. The character '. ' is counted in the size of 
the item. For a given program the functions of the period and 
comma are exchanged if the clause DECIMAL-POINT IS COMMA is 
stated in the SPECIAL-NAMES paragraph. In this exchange the 
rules for the period apply to the comma and the rules for the 
comma apply to the period wherever they appear in a PICTURE *£ 
clause. The insertion character '. ' must not be the last 
character in the PICTURE character-string. 

+ » -. CR> DB. These symbols are used as editing sign control 
symbols. When used, they represent the character position into 
which the editing sign control symbol will be placed. The 
symbols are mutually exclusive in any one character-string and 
each character used in the symbol is counted in determining 
the size of the data item. 

Each '*' (asterisk) in the character-string represents a 
leading numeric character position into which an asterisk will 
be placed when the contents of that position is zero. Each '*' 
is counted in the size of the item. 

The asterisk when used as the zero suppression symbol and the 
clause BLANK WHEN ZERO may not appear in the same entry. 



•**!;. 



f 
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The currency symbol in the character-string represents a 
character position into which a currency symbol is to be 
placed. The currency symbol in a character-string is 
represented by either the currency sign or by the single 
character specified in the CURRENCY SIGN IS clause in the 
SPECIAL-NAMES paragraph. The currency symbol is counted in the 
size of the item. 

There are two general methods of performing editing in the PICTURE 
clause, either by insertion or by suppression and replacement. 
There are four types of insertion editing available: 

Simple insertion 
Special insertion 
Fixed insertion 
Floating insertion 

There are two types of suppression and replacement editing: 

Zero suppression and replacement with spaces 
Zero suppression and replacement with asterisks 

The type of editing which may be performed upon an item is 
dependent upon the category to which the item belongs. The 
following table specifies which type of editing may be performed 
upon a given category: 



CATEGORY 
Alphabetic 



TYPE OF EDITING 

Simple insertion 'B' only 



Numeric 



Alphanumeric 



None 
None 



Alphanumeric 
Edited 



Simple insertion '0', 'B', 
and '/' (stroke) 



Numeric 
Edited 



All, subject to rules below 



c 



Floating insertion editing and editing by zero suppression and 
replacement are mutually exclusive in a PICTURE clause. Only one 
type of replacement may be used with zero suppression in a PICTURE 
c lause. 
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Simple Insertion Editim 



The ', ' (comma), 'D ' (sDace), 'C\' <-,*.* \ 

mc-h ac +k„ t pace '' ° ' (zero), and '/' (stroke) svp 

I*., into „■,!:„•{;: ^"m^^iim'^::;;:,,*- p ° smon in the 

Special Insertion Editing 



:;;;!/•; -»»?-•"' »»■>»»■ T>i\„tiii i0 :r*iri:tir u * :„ £•". 

in the same PICTURE charac ter-str inq is i i ,, J *"! 

special insertion editina il 1*1 dl5al l°w*d. The result of 

character in the item f h appearance of the insertion 

character-string. * " m ' P ° 5ition as sh ™" in the 

Fixed Insertion Editing 



...i.l «. oni„ one '"o^the I" «"•''«*•»■ Onl, one currenc 
used in a ,i° Li.. I the ed >ti"9 sign control symbols can be 
'DB< are 'I P ^TURE character-str inj. Whan the spools <Cr" or 

M. it ...t «',.»ct. r , j:. 1 ?r on : h ; h .i t ::. co^e^hVe-rr ;„: 

The symbol 



; t %trriha;:c;a%\';;;t-rt„ u % e rc:^s e -^-: i !:- r % 



or 
he 



counted^^the's^e^orth V' 1<?ftmOSt ch "«*" position to be 
either a " + - ^r a '-' sy t mb e ol ltem "" pt that " " n be P"" ded by 

Fixed insertion editina rscnife ,• ». 4.1,^ 

ocrnrii-i-n *>,« L ns results in the insertion character 

occupyi g the same character position in the edited item IV t 

occupieo in the PICTURE character-string eo ^ecJ item as it 
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Editing sign control symbols produce the 
depending upon the value of the data item: 



following results 



EDITING SYMBOL IN 
PICTURE 
CHARACTER-STRING 


RESULT 




DATA ITEM 
POSITIVE OR ZERO 


DATA ITEM 
NEGATIVE 


+ 

CR 
DB 


+ 
space 
2 spaces 
2 spaces 


CR 
DB 



Floating Insertion Editing 



we 



The currency symbol and editing sign control symbols, '+' or '-', 
are the floating insertion characters and as such are mutually 
exclusive in a given PICTURE character-string. 

Floating insertion editing is indicated in a PICTURE 
character-string by using a string of at least two of the floating 
insertion characters. This string of floating insertion characters 
may contain any of the fixed insertion symbols or have fixed 
insertion characters immediately to the right of this string. 
These simple insertion characters are part of the floating string. 

The leftmost character of the floating insertion string represents 
the leftmost limit of the floating symbol in the data item. The 
rightmost character of the floating string represents the 
rightmost limit of the floating symbols in the data items 

The second floating character from the left represents the 
leftmost limit of the numeric data that can be stored in the data 
item. Nonzero numeric data may replace all the characters at or to 
the right of this limit. 



CL 



In a PICTURE character-string, there are only two ways of 
representing floating insertion editing. One way is to represent 
any or all of the leading numeric character positions on the left 
of the decimal point by the insertion character. The other way is 
to represent all of the numeric character positions in the PICTURE 
character-string by the insertion character. 
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PoirTir thrPir^UPr'T^r 5 "" ° nly t0 th<? left of the decimal 
poir.t in tne PICTURE character-string, the result is that a single 

I:!;? l ¥ A°+ , haraCter » iU be P 1 "^ into the character 
!' t10 '' ^.mediately preceding either the decimal point or the 

swmbol strTno ""I": the ^^ "P™"nted by the insertion 

character-Itr?™ "rl T T l* <^ther to the left an the PICTURE 

Hi ™ a - The / h *™cter Position, preceding the insertion 
character are replaced with spaces. 

are al recrnint P H ha r Ct :r P ° 5ition5 in th * PICTURE character-string 
are represented by the insertion character, the result decent*! 
upon the value of the data. If the value is zero the entire data 

th h : "?j ffl :r ?sj"t th * insertion character is ° niy to the le ^ °< 

lL r = tr id * trun " tion ' th * minimum size of the PICTURE 
rr n9 ,° r the receiving data item must be the number of 
characters in the sending data item, plus the number of 
non-floating insertion characters being edited into the receiving 
data item, plus one for the floating insertion character. 

Zero Suppression Editing 



II" InSi^f^V' i" din 9 2e ™ es in numeric character positions 

character '*> tAt.tiLS" °' *"* al P habetic character 'Z< or the 
cnaracter # (asterisk) as suDoress i on ei.mhni* ,• „ , ox^xi.nr- 



suppression symbols in a PICTURE 



PICtSIII"^^?"' I he5e 5 r b ° 1S are mutuflll « exclusive in a given 
PICTURE character-string. Each suppression symbol is counted in 
determining the size of thp it- em t* n > ,• I j *.,_ uvui.ve-u m 
rh ,., rf „ ,,,,, . Ji r Tne ltem - If z is used the replacement 

character U be the space and if the asterisk is used, the 
replacement character will be '*'. «»««« ™ e 

In a PICTURE character-string, there are only two ways of 
representing zero suppression. One way is to represent any or all 
of the leading numeric character positions to the left of the 
decimal point by suppression symbols. The other way is to 
represent all of the numeric character positions in the PICTURE 
character-string by suppression symbols. 

If the suppression symbols appear only to the left of the decimal 

?n 1P tL a rL! ead1 ? 9 2er V n the data which corresponds to a symbol 
in the string is replaced by the replacement character 
Suppression terminates at the first nonzero digit in the data 
represented by the suppression symbol string or at the decimal 
point, whichever is encountered first. 



V. 
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If all numeric character positions in the PICTURE character-string 
are represented by suppression symbols and the value of the data 
is not zero the result is the same as if the suppression 
characters were only to the left of the decimal point. If the 
value is zero and the suppression symbol is '1', the entire data 
item will be spaces. If the value is zero and the suppression 
symbol is '*', the data item will be all '*' except for the actual 
decimal point. 

The symbols '■*•', '-', '*', 'Z', and the currency symbol, when used 
as floating replacement characters, are mutually exclusive within 
a given character-string. 

The picture precedence chart shows the order of precedence when 
using characters as symbols in a character-string. An 'X' at an 
intersection indicates that the symbol(s) at the top of the column 
may precede. in a given character-string, the symbol(s) at the 
left of the row. Arguments appearing in braces indicate that the 
symbols are mutually exclusive. The currency symbol is indicated 
by the symbol 'cs '. 

At least one of the symbols 'A', 'X', 'Z'. '9', or '*', or at 
least two of the symbols '+', '-', or 'cs' must be present in a 
PICTURE string. 

Nonfloating insertion symbols '+' and '-', floating insertion 
symbols 'Z', '*', '+', '-', and 'cs', and other symbol 'P ' appear 
twice in the PICTURE character precedence chart. The leftmost 
column and uppermost row for each symbol represents its use to the 
left of the decimal point position The second appearance of the 
symbol in the chart represents its use to the right of the decimal 
point position. 
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The USAGE Claust 



The USAGE clause specifies the format of a data item in the 
computer storage. 



FORMAT 

CUSAGE IS3 {COMPUTATIONAL > 
■CCOMP > 

<COMPUTATIONAL-l> 
•CCOMP-1 > 

■CC0MPUTATI0NAL-3> 
■CCOMP-3 > 

{DISPLAY > 
< INDEX > 



This clause 

e 
use of the 



specifies the 



manner in which a data item is 
represented in the storage of a computer. It does not affect the 
data item, although the specifications for some 
statements in the Procedure Division may restrict the USAGE clause 
of the operands referenced. 



The USAGE clause can be written at any level. If the USAGE clause 
is written at a group level, it applies to each elementary item in 
the group. The USAGE clause of 
contradict the USAGE clause of a 



an elementary item cannot 
group to which the item belongs. 



If the USAGE clause is not specified for an elementary item, or 
for any group to which the item belongs, the usage is implicitly 
DISPLAY. y y 



c 



A COMPUTATIONAL (COMPUTATIONAL-1 , C0MPUTATI0NAL-3) item represents 
a value to be used in computations and must be numeric. If a group 
is described as COMPUTATIONAL, then the elementary items in the 
group are COMPUTATIONAL. The group itself is not COMPUTATIONAL 
(cannot be used in computations. ) 
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The format of a COMPUTATIONAL item is one decimal digit per 
character position (hexadecimal 00-09). If an 'S' appears in the 
PICTURE character-string, a trailing byte contains the sign with 
> 2E being generated for positive and > 2D being generated for 
negative, COMPUTATIONAL items will be treated as negative if the 
sign character is > 2D; otherwise they will be considered 
pos i 1 1 ve. 

The format of a COMPUTATIONAL-1 item (abbreviated COMP-1) is 16 
bit two's complement signed binary, independent of the number of 
nines or appearance of 'S' in the PICTURE character-string The 
number of nines is significant when the value is converted to 
decimal during data manipulation. The value of a COMPUTATIONAL-1 
item ranges between -32768 and 32767. 

The format of a COMPUTATIONAL-3 item is two decimal digits per 
charautLr position 

The PICTURE character-string of a COMPUTATIONAL, COMPUTATIONAL-1 
or COMPUTATIONAL-3 item can contain only '9's. the. operat i ona 1 
sign character 'S', the implied decimal point character 'V. one 
or more 'P's. Since a COMPUTATIONAL-1 item must have zero scale it 
cannot contain any 'P's in its PICTURE character string and if it 
has a 'V in its PICTURE character-string the 'V must be the 
rightmost character. 

The USAGE IS DISPLAY clause indicates that the format of the data *. v 
is ASCII. ^ 

An elementary item described with the USAGE IS INDEX clause is 
called an index data item and contains a value which must 
correspond to an occurrence number of a table element. If a group 
item is described with the USAGE IS INDEX clause the elementary 
items in the group are all index data but the group item name 
cannot be used in the SET statement or in a relation condition. 

An index data item can be referenced explicitly only in a SET 
statement or a relation condition. 

The initial value of an index item is undefined. 

The SYNCHRONIZED, JUSTIFIED. PICTURE. VALUE and BLANK WHEN ZERO 
clauses cannot be used to describe group or elementary items 
described with the USAGE IS INDEX clause. 

An index data item can be part of a group which is referred to in 
a MOVE or input-output statement, in which case no conversion will 
take place. 

The external and internal format of an index data item is the same 

as a COMPUTATONAL-1 item. ' . 
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The SIGN Clause 



The SIGN clause specifies the position and th-? modt of 
representation of the operational sign when it is necessary to 
describe these properties explicitly. 

FORMAT 

[SIGN IS] {TRAILING} [SEPARATE CHARACTER] 



The optional SIGN clause, if present, specifies the position and 
the mode of representation of the operational sign for the numeric 
data description entry to which it applies, or for each numeric 
data description entry subordinate to the group to which it 
applies. The SIGN clause applies only to numeric data description 
entries whose PICTURE contains the character 'S'. 

The operational sign will be presumed to be the trailing character 
position of the elementary numeric data item; this character 
position is not a digit position. 

The letter 'S' in a PICTURE character-string is counted in 
determining the size of the item <in terms of standard data format 
characters ). 

The operational signs for positive and negative are the standard 
data format characters '+' and '-', respectively. 

The numeric data description entries to which the SIGN clause 
applies must be described as usage is DISPLAY. 

At most one SIGN clause may apply to any given numeric data 
description entry. 
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The OCCURS Clau 



se 



The OCCURS clause eliminates th . negd 

repeated data items and 5 , f • f °/ se P^ate entries for 

application of subscripts or indices. lnformation required for the 

FORMAT 1 

OCCURS integer-1 TIMES 

CINDEXED BY index-name-i r in rfo 
name 1 l, 1 nde x -name-2 J ... 3 

FORMAT 2 

OCCURS integer-! TO inte g er- 2 TIMES DEPENDING ON data-name-1 
CINDEXED BY index-name-1 L, inti e 7-7a7e~-2~l . . . 3 

The OCCURS clause is used in h„* • 

sets of repeated data items Whe^ve"? the 'occupp °, th,r homo 9-eous 
the data-name which is the sublet *J e ° CCURS / lau Se is used , 
subscripted or indexed whenever !%*" * ntry must be eith *r ' 
Further, if the subject of this ent™ il 77** *° ln * statement. 
then all data-names belong nt^ * name ° f a 9 ro "P ***"" 
indexed whenever they are useS ll 9T ° UP must be subscripted or 

of a REDEFINES clause. " operands, except as the object 

The OCCURS clause rannnt ho 

that: Cannot be «P«,fi.d in a data description entry 

Has an 01, 66, 77, or an 88 level-number. 

Describes an item whose size is vari^hi- T , 

»■ variable if the data descr^t I'm Thp S1Ze of an **•«■ 

contains Format 2 of the OCCURS clause. *"" SUbordinat ^ it.m 

Except for the OCCURS clause itself a ii w * , 

assorted with an item whose detl ■ t descri P^on clauses 
clause apply to each occurrence of th \ 7tl77 ir \ clude * •" OCCURS 

ur ine item described. 



f 
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The number of occurrences of the subject entry is defined as 
f ol lows: 

By 

In Format 1, the value of integer-1 represents the exact 
number of occurrences. 

In Format 2, the current value of the data item referenced by 
data-name-1 represents the number of occurrences. 

This format specifies that the subject of this entry has a 
variable number of occurrences. The value of integer-2 
represents the maximum number of occurrences and the value 
of integer-1 represents the minimum number of occurrences. 
This does not imply that the length of the subject of the 
entry is variable, but that the number of occurrences is 
variable. 

The value of the data item referenced by data-name-i must 
fall within the range integer-1 through integer-2. 
Reducing the value of the data item referenced by 
data-name-1 makes the contents of data items, whose 
occurrence numbers now exceed the value of the data item 
referenced by data-name-1, unpredictable. 

Where both integer-1 and integer-2 are used, the value of 
integer-1 must be less than the value of integer-2. 

** The data description of data-name-1 must describe a 

-"" positive integer. Data-name-1 may be qualified 

A data description entry that contains Format 2 of the 
OCCURS clause may only be followed, within that record 
description, by data description entries which are 
subordinate to it. 

When a group item, having subordinate to it an entry that 
specifies Format 2 of the OCCURS clause, is referenced, only that 
part of the table area that is specified by the value of 
data-name-1 will be used in the operation. 

An INDEXED BY phrase is required if the subject of this entry, or 
an entry subordinate to this entry, is to be referred to by 
indexing. The index-name identified by this clause is not defined 
elsewhere since its allocation and format are dependent on the 
hardware, and not being data, cannot be associated with any data 
hierarchy. 



C 
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The SYNCHRONIZED Clause 



The SYNCHRONIZED clause specifies the alinnm*n+ „* 

item on an even byte boundary alignment of an elementary 

FORMAT 

<SYNCHRONIZED> CLEFT 3 
<SYNC > CRIGHTD 



_i,_„__, ., *"= u iiu uiner oata item occupies ami n( +k« 
character Dositinnc h = •»-, .-,„_ a... < „. w..<. up * e;> any ot- the 

pusiiions Between the leftmost anrt <•*<•«», 4-~_-.i. . 
boundaries dpiini + in, *.., ■ -.a. 7 D51; ana rightmost natural 
uuunoaries delimiting this data item. If the number nf rh=^ = ,-* 

ir'i^iriiuiivri r is data "•■ *• ™» *-' ■* - » " 

character positions between those natural houndaHe, 4-1,= 
are ?"?, S JSS 1^"*" ltBm ' SUCh """*°" cha "'*" Positions, ho» s » er , 



beiong^'anS' an " 9r ° UP ite "" S> t0 U "' iCh the elementary it. 



m 



The character positions redefined when this data item .* + h D 
obj.ect of a REDEFINES clause. the 

SYNCHRONIZED LEFT SD ecifi P «; H = + «... 

positioned such that " U%e s n atlhe ..im'"'' J*" " t0 be 
of the next available aven but! If th. Ml ■£ * r positi ° n 
n-ber of bytes, one trai ^Jte'o f ^Ii^^M* Z^" " "" 

'".^ssrj^r^" risht " left «• •»-'"•'»* *• 

SYNC is an abbreviation for SYNCHRONIZED. 

This clause may only appear with an elementary item. 

!^£I- ED .!!I? HT .;!!' 1 ?!» that *». .l.«"t.r„ it., is to be 



positioned such that it „ill ter.i^ta „n the r ght chara°ct n 
position of an integral even byte boundaru If III /! ! 
contains an odd nuhtber of bytes.^T ..Sain.".,..'., 'Vl^JE? IJ 



PAGE 80 



c 



Whenever a SYNCHRONIZED item is referenced in the source program, 
the original size of the item ( as shown in the PICTURE clause, is 
used in determining any action that depends on size, such as 
just i fie t ion, truncation or overflow. 

If the data description of an item contains the SYNCHRONIZED 
clause and an operational sign, the sign of the item appears in 
the normal operational sign position, regardless of whether the 
item is SYNCHRONIZED LEFT or SYNCHRONIZED RIGHT. 

When the SYNCHRONIZED clause is specified in a data description 
entry of a data item that also contains an OCCURS clause, or in a 
data description entry of a data item subordinate to a data 
description entry that contains an OCCURS clause, then: 

Each occurrence of the data item is SYNCHRONIZED. 

Any implicit FILLER generated for other data items within that 
same table are generated for each occurrence of those data 
items. 

Records of a file and index data items are automatically 
synchronized left. Records and noncontiguous data-items in 
working-storage begin on the next available byte unless the first 
elementary item is synchronized. 

The format on external media of records or groups containing 
elementary items described with the SYNCHRONIZED clause includes 
any implied FILLER bytes. 

When the data item preceding a data item described with the 
SYNCHRONIZED clause does not terminate on a byte whose address is 
even, then one implied FILLER byte is generated. Such 
automatically generated FILLER positions are included in: 

The size of any group to which the FILLER item belongs; and 

The number of character positions allocated when the group 
item of which the FILLER item is a part appears as the object 
of a REDEFINES clause. 
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The JUSTIFIED Clause 



The JUSTIFIED clause specifies nonstandard positioning of dat, 
within a receiving data item. g 0at ' 



FORMAT 

{JUSTIFIED} RIGHT 
■CJUST > 




cXlr.":":!.,!-** ■"«: "' '•*• *• aliped at .hi ?[ H 
lerxmost character positions. 



aHanino e d a ^ STI ^ ED Cl- y" *» ° mitted ' the standard rules for 
aligning data within an elementary item apply. 

IeLr?hir iED Cl3U5e Cannot be specified for any data item t*r 
described as numeric or for which editing is specified. 

Ie3el JUSTIFIED ClaUSe "" be s P ecified °nl« at the elementary it 

JUST is an abbreviation for JUSTIFIED. 



em 
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The BLANK WHEN ZERO Clause 



r 



The BLANK WHEN ZERO clause permits the blanking of an item when 
it* value is zero. 

FORMAT 

BLANK WHEN ZERO 



The BLANK WHEN ZERO clause can be used only for an elementary item 
whose PICTURE is specified as numeric or numeric edited. 

The BLANK WHEN ZERO clause cannot appear in the same entry with a 
PICTURE clause having an asterisk as the zero suppression symbol. 

When the BLANK WHEN ZERO clause is used, the item will contain 
nothing but spaces if the value of the item is zero. 

When the BLANK WHEN ZERO clause is used for an item whose PICTURE 
is numeric, the category of the item is considered to be numeric 
edited. 
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The VALUE IS Clausi 



aaBuuiaoeg ujixn a c one 1 1 1 on-name. 
FORMAT 1 

VALUE IS literal 



FORMAT 2 

*--!lif IS * lite ^l~l C<THROUGH> literal-23 
{VALUES ARE> {THRU > 

Cliteral-3 C{THROUGH> literal-4J3 
{THRU > 

variable" C ' aU " Cann °* " e 5tated f1 "- ••>« tt«. whose sile 4 . 

All numeric literals in a VAL uf ri^,,«,« -^ 

value whzch i s within the r a ! «i ? ■ *" item mu5t have a 

clause, and ,u t v ? a /!"!! indicated by the PICTURE 

of nonzero digits. Nolu^i a ^ T "vALUE^^ trUnCati °" 

ltfim - 5t n0t »»- th. size indUa a L% 1 b/thr A piCTURE a ci:u, 

The words THRU and THROUGH are equivalent. 



jse. 



of a , llflr L{ nn ,. iiumeric. if- the literal defines the value 

°t- „ ;:i;; ;:;"; "*•"' *• •»■"- - the d . t . 

" ni t0 the standard alignment rules. 
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2. If the category of the item is alphabetic, alphanumeric, 
5i. P ,« nUm T riC 9dlt * d or numeT,ic edited, all literals in the 
VALUE clause must be nonnumeric literals. The literal is 
aligned in the data item as if the data item had been 
described as alphanumeric. Editing characters in the PICTURE 
clause are included in determining the size of the data item 
but have no effect on initialization of the data item 
Therefore, the VALUE of an edited item is presented in an 
edited form. 

^"iiJ^Jii**! " takes P lace independent of any BLANK WHEN ZERO or 
JUSTIFIED clause that may be specified. 

A figurative constant may be substituted in both Format 1 and 
Format 2 wherever a literal is specified. 

Condition-Name Rules 



In a condition-name entry, the VALUE clause is required The VALUE 
clause and the condition-name itself are the only two clauses 

S;i m l^JjrJ!i th J h entry r ™ e characteristics of a condition-name 
are implicitly those of its conditional variable. 

Format 2 can be used only in connection with condition-names 
Wherever the THROUGH (THRU) phrase is used, literal-1 must be less 
than literal-2, literal-3 less than literal-4, etc. 

Data Description Entries Other Than Condition-Names 



Rules governing the use of the VALUE clause differ with the 
respective sections of the Data Division: 

In the File Section, the VALUE clause may be used only in 
condxtion-name entries. 

In the Working-Storage Section, the VALUE clause must be used 
in condition-name entries. The VALUE clause may also be used 
to specify the initial value of any other data item; in which 
case the clause causes the item to assume the specified value 
at the start of the object program. If the VALUE clause is not 
used in an item's description, the initial value is undefined. 

In the Linkage Section, the VALUE clause may be used onlu in 
condition-name entries. 
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The VALUE clause must not be stated in a data description entry 
that contains an OCCURS clause, or in an entry that is subordinate 
to any entry containing a REDEFINES clause. This rule does not 
apply to condition-name entries. 

If the VALUE clause is used in an entry at the group level, the 
literal must be a figurative constant or a nonnumeric literal, and 
the group area is initialized without consideration for the 
individual elementary or group items contained within this group. 
The VALUE clause cannot be stated at the subordinate levels within 
this group. 

The VALUE clause must not be written for a group containing items 
with descriptions including JUSTIFIED, SYNCHRONIZED, or USAGE 
(other than USAGE IS DISPLAY). 






PAGE 86 



The RENAMES Clause 



The RENAMES clause permits alternative, 
groupings of elementary items. 



possibly overlapping, 



FORMAT 

66 data-name-1; 

RENAMES data-name-2 C-CTHROUGH> data-name-3!]. 

{THRU > 



NOTE: Level-number 66, data-name-1 and the semicolon are shown 
in the above format to improve clarity. Lev* 1-numb er and 
data-name-1 are not part of the RENAMES clause. 

All RENAMES entries referring to data items within a given logical 
record must immediately follow the last data description entry of 
the associated record description entry. 

Data-name-2 and data-name-3 must be names of elementary items or 
groups of elementary items in the same logical record, and cannot 
be the same data-name. A 66 level entry cannot rename another 66 
level entry nor can it rename a 77, 88, or 01 level entry. 

Data-name-1 cannot be used as a qualifier, and can onlu be 
qualified by the names of the associated level 01 or FD entries 
Neither data-name-2 nor data-name-3 may have an OCCURS clause in 

nfi!« J" 1 " •° n - ,ntry n ° r be sub0T -<>inate to an .item that has 
an OCCURS clause in its data description entry. 

Ik! , b !! in ^3 °f the area des "ibed by data-name-3 must not be to 
the left of the beginning of the area described by data-name-2 
The end of the area described by data-name-3 must be to the right 
of the end of the area described by data-name-2. Data-name-3, 
tnerefore, cannot be subordinate to data-name-2. 

Data-name-2 and data-name-3 may be qualified. 

None of the items within the range, including data-name-2 and 
data-name-3, if specified, can be an item whose si 2 e is variable 
as defined in the OCCURS clause. * «« . e 
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One or more RENAMES entries can be written f or a logical record 

ineTu««« t !7? l,m ;" 3 ** specified ' data-name-1 is a group item which 
ata-name- i! 1^^^ J*™* staT * tin 9 -"h da?a-name-2 ( f 

. ;:; (^ d !Jr e ar x item> or the first ■i-"»nt.r W item in 

datf-nfmf ? J* data-name-2 as a group item), and concluding with 
; me_3 , lf data-name-3 is an elementary item) or the last 
elementary item in data-name-3 (if data-name-3 is a group item) 

When data-name-3 is not specified, data-name-2 can be either a 
group or an elementary item; when data-name-2 is . group item 
data-name-1 is treated as a group item, and when data-nIme-2 s an 
elementary item, data-name-1 is treated as an e 1 ementarjit em 

The words THRU and THROUGH are equivalent. 



<*«£*- 

**••;«**■' 
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DATA STRUCTURES 



Classes of Data 



The five categories of data items (see the PICTURE Clause) are 
grouped into three classes: 

alphabetic 

numeric 

alphanumeric 

For alphabetic and numeric* the classes and categories are 
synonymous. 

The alphanumeric class includes the categories of alphanumeric 
edited, numeric edited and alphanumeric (without editing). 

Every elementary item except for an index data item belongs to one 
of the classes and further to one of the categories. The class of 
a group item is treated at object time as alphanumeric regardless 
of the class of elementary items subordinate to that group item. 

The following chart depicts the relationship of the class and 
categories of data items: 



.'LEVEL OF ITEM ! CLASS 


! CATEGORY 


>' ! Alphabetic 


' Alphabetic 


i ! Numeric 


Numeric 


i 1 Alphanumeric 


Numeric Edited 
Alphanumeric Edited 
Alphanumeric 


INonelementary ! Alphanumeric 
i (Group > J , 


Alphabetic 
Numeric 

Numeric Edited 
Alphanumeric Edited 
Alphanumeric 
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Representation of Numeric Items 



The value- of a numeric item may be represented in either binaru 

The selection of the proper representation is dependent uoon *-h. 
external forms For efficiL. n* eliminate conversions to 

To reduce conversions and increase efficiency, types should net be 
mirec in operations except, where required by program needs 



Representation of Algebraic Si 



gns 



Algebraic signs fall into two categories: 

d^t^items 1 .Hi'" W !! iCh are —"i-te- «ith signed numeric 
ataebr^rL* J 19 ™ 11 " umeric literals to indicate their 
algebraic properties; and 

editing signs which appear to identify the sign of the item. 

nuLr?r SP ^ Y ' • COf1PUTATION AL, and COMPUTATIONAL^, an unsigned 
posit ve a 6 nd 15 J1 1 Umed t0 "^ '" °P"-tion.l sign .hie 9 I 
^nn!i l U receive the absolute value of signed items A 

t"j?H„; u ?h t :;:c{. t ; m main - tains the °>°^°^ ***» a 5 9 r ::;:;. t : 

For COMPUTATIONAL-1 (which is always signed), the operational « io „ 

oin.:; i ; t ;i n,d as part of the itemin *-. co°i;i::.„Tii;i.«; 
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Standard Alignment Rules 



The standard rules of positioning data within an elementary item 
depend on the category of the receiving item: 

If the receiving data item is described as numeric: 

a. The data is aligned by decimal point and is moved to the 
receiving character positions with zero fill or truncation 
on either end as required. 

b. When an assumed decimal point is not explicitly specified, 
the data item is treated as if it had an assumed decimal 
point immediately following its rightmost character and is 
aligned as in a. above. 

If the receiving data item is a numeric edited data item, the 
data moved to the edited data item is aligned by decimal point 
with zero-fill or truncation at either end as required within 
the receiving character positions of the data item, except 
where editing requirements cause replacement of the leading 
zeros. 

If the receiving data item is alphanumeric (other than a 
5* numeric edited data item), alphanumeric edited or alphabetic, 

p^- the sending data is moved to the receiving character positions 

and aligned at the leftmost character position in the data 
item with space-fill or truncation to the right, as required 

If the JUSTIFIED clause is specified for the receiving item, these 
standard rules aTe modified as described in the JUSTIFIED clause. 



c 
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QUALIFICATION 



Every user-specified name that defines an element in a rnnn, 

* W! unl »« "« "entionins on, or ...e , ,.'" f '" 

the nierarchu The h^ n ».«. 1 i ,ll S ner levels of 

P»c„ s th.E pec ,/ « i; 1 ;,"" " Iei joaliriers and this 
qualification must be menJioned to make th/n * lif "? t "> n - E "°"3h 

it ... not be nsc t0 ™ „ '.^ , ,"• J un^ue, hoover, 

Within the Data tHw c ^n ,, L I 1S of the hierarchy 

■ u.t be associate. ^VT^tl^^uTtlr^lt '" J" 11 """"" 
Therefore, tu/o irton + ,^7 7 indicator or a level-number 

subordinate to a oroCo itL da * a - nam * s mu5t "»t appear as entries 
unique through quaT° f Sci^n. 1 " 11 "' ^ "* '^^ °* be ^ m * d * 

Indicator^rl^K^ ° V"* 1 * f ' Cat ion ' names associated with a level 
indicator are the most sianificant, then *k«^„ ' ievei 
with level-number 01 th.n those names associated 

.... 49 Li! sili I 3 "" associated with level-number 02, 
and cannot be qualified * " *"* hieT ^ ch * ««t be unique 

Qualification is performed by followinq a dat a -n amB k„ 

FORMAT- 1 

<data-name-l> C<0F> data-name-2 3... 

•Ccondi tion-name> -CIN> 



FORMAT 2 

paragraph-name [<OF> secti on-name] 

<IN> 
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The rules for qualification are as -follows: 

1. Each qualifier must be of a successively higher level and 
within the same hierarchy as the name it qualifies. 

2. The same name must not appear at two levels in a hierarchy. 

3. If a data name is assigned to more than one data item in a 
source program* the data-name must be qualified each time it 
is referred to in the Procedure, Environment, and Data 
Divisions (except in the REDEFINES clause where qualification 
is unnecessary and must not be used. ) 

4. A paragraph-name must not be duplicated within a section. When 
a paragraph-name is qualified by a section-name, the word 
SECTION must not appear. A paragraph-name need not be 
qualified when referred to from within the same section. 

5. A data-name cannot be subscripted when it is being used as a 
qualifier. 

6. A name can be qualified even though it does not need 
qualification: if there is more than one combination of 
qualifiers that ensures uniqueness, then any such set can be 
used. The complete set of qualifiers for a data-name must not 
be the same as any partial set of qualifiers for another 
data-name. Qualified data-names may have any number of 
qualifiers up to a limit of 49. 
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SUBSCRIPTING 



Subscripts 
indi vi dual 
have not been 
Clause) 



««.n.d i„„,vidu.i d .t.-i:.:: 'Ji:.' 1 ?::-^^! 



The subscript can be represented «iH„ k 

is an integer or by a da a- T * L " * numeric literal that 
elementary item that represents In inttter^L™ 5 ^* * num "^ 
represented by a data-name, t dl ^ I "J" the sub "ri p t is 
subscribed e data name m *y be qualified but not 

The subscript man ho = ,„-,„j ^ 

first element of ttl . ta ^J' T h" n» * S Value " 0int5 t= the 
table are pointed to 6g .ub.ri.Je! t "1«nti.l elements 
"■• U„,..t Per.i S sl b g ,: U ^o:cnipt'"t"„%r alUeS '" 



Of 



the 
2 ' 3, . . n 
in any particular case, 

in 



is the maximum number of occurrences^^ 'V^ P"*i«=ul.r c 
the OCCURS clause. occurrences of the item as specified 

The subscript. or se t of subsr^nf* 4- ^ . 

element is delimited by the balanced 1 ** i dentifie * the table 
Parenthesis and right parenthesis I* , ° f se P^ators, left 
data-name. The table element dating f ° ll0Ulng the ^le element 
" called a subscript^ da^-nlmHr* app , ended wlth a subscript 
one subscript is 'r^uJred, e fr. ^M! 1 ^ Whe " more ™*» 
successively l ess inclusive dime^HonHf t^^ta ^l^~ " 

FORMAT 

■Cdata-name > ( suhei-T.,- „+. 1 r 

<condition-name> SUbSCr - 1 P t ~ 1 C ^ubscri p t-2 C, sub scr i p t -3J 1 ) 



r^\»G, Qjfl 



c. 



INDEXING 



References can be made to individual elements within a table of 
like elements by specifying indexing for that reference. An index 
is assigned to that level of the table by using the INDEXED BY 
phrase in the definition of a table. A name given ii the INDEXED 
BY phrase is known as an index-name and is used to refer to the 
assigned index. The value of an index corresponds to the 
occurrence number of an element in the associated table. An 
index-name must be initialized before it is used as a table 
reference. An index-name can be given an initial value by a SET 
statement, or a FORMAT 4 PERFORM statement. 

Direct indexing is specified by using an index-name in the form of 
a subscript. Relative indexing is specified when the index-name is 
followed by the operator + or -» followed by an unsigned integer 
numeric literal all delimited by the balanced pair of separators* 
left parenthesis and right parenthesis. following the table 
element data-name. The occurrence number resulting from relative 
indexing is determined by incrementing (where the operator + is 
used) or decrementing (when the operator - is used), by the value 
of the literal, the occurrence number represented by the value of 
the index. When more than one index-name is required. they are 
written in the order of successively less inclusive dimensions of 
the data organization. 

At the time of execution of a statement which refers to an indexed 
table element, the value contained in the index referenced by the 
index-name associated with the table element must neither 
correspond to a value less than one (1) nor to a value greater 
than the highest permissible occurrence number of an element of 
the associated table. This restriction also applies to the value 
resultant from relative indexing. 

FORMAT 

<data-name> ( -Cindex-name-1 C< + > literal-23> 

<condition-name> -Cliteral-1 <-> > 

C. -Cindex-name-2 C< + > literal-43> 
•Cliteral-3 <-> > 

C. -Cindex-name-3 [<+} 1 i teral-63>] ] ) 
■Uittral-5 <-> > 
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IDENTIFIER 



An identifier is * +_„„, . ^ 

•» = ' is a term used to refli 

k be followed by a suntactirati,, 

_ _...jt»c *..»._ • . =y " '-at- vi cai l u correct 

ensure nn. 1 . *'" irS ' SUDSCriptS or ( n v;,. •• w i I «? c -c 

ensure uniqueness. The general formats L , indices necessary to 

rormats for identifiers are: 



unique in a programf " u ™ "SVllolVSV* *"** * data — if not 
combination of qualified ill™ tit? « ■«?t.ctic.ll w correct 



FORMAT 1 

data-name-1 C-COF> djf a -n, o-. 

_. data-name-23 ... C < sub scrip t-1 

■CIN> 

t-subscript-2 Csubscript-333): 
FORMAT 2 

data-r.ame-l CiOF> data-name-2D 



■CIN> 



' C< ^ n J ex -name-l C-C + > literal-2:> 
<literal-l <_> J 



*literal-3 {-> . 

^<index-name-3 L< + > lit.ral-63>3 J > 3 
■Cliteral-5 {-> wj^jj/j 

Restrictions on ouali*ir-,f,- 

quantitation, subscriotinn ar,w ,-j 

»»«»uipi;ing and indexing are- 

qualifier. " 9 used as « n index, subscript or 

Indexing is not permitted uihere subscripts is „„* 

wuacripting is not permitted. 

index may be modified om „ k.. ... 

PERFORM 




Literal-1, literal-3, literal-^ <„ «... 

Positive numeric integers liter!,'? SI f0 ™ at mU5t be 

rust b * unsigned numeric Integers l*t.r.l-4. literal-6, 
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CONDITION-NAME 



Each condition-name must be unique. or be made unique through 
qualification and/or indexing* or subscripting. 

If qualification is used to make a condition-name unique, the 
associated conditional variable may be used as the first 
qualifier. If qualification is used, the hierarchy of names 
associated with the conditional variable or the conditional 
variable itself must be used to make the condition-name unique. 

If references to a conditional variable require indexing or 
subscripting* then references to any of its condition-names also 
require the same combination of indexing or subscripting. 

The format and restrictions on the combined use of qualification, 
subscripting, and indexing of condition-names is exactly that of 
'identifier' except that data-name-1 is replaced by 
condi t ion-name- 1. 

In the general formats, 'condition-name' refers to a 
condition-name qualified, indexed or subscripted, as necessary. 
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TABLE HANDLING 



Tables of data are common components of business data processing 
problems. Although items of data that make up a table could be 
described as contiguous data items, there are two reasons why this 
approach is not satisfactory. First/ from a documentation 
standpoints the underlying homogeneity of the items would not be 
readily apparent; and second, the problem of making available an 
individual element of such a table would be severe when there is a 
decision as to which element is to be made available at object 
t ime 

Tables composed of contiguous data items are" defined in COBOL by 
including the OCCURS clause in their data description entries. 
This clause specifies that the item is to be repeated as many 
times as stated. The item is considered to be a table element and 
its name and description apply to each repetition or occurrence. 
Since each occurrence of a table element does not have assigned to 
it a unique data-name, reference to a desired occurrence may be 
made only by specifying the data-name of the table element 
together with the occurrence number of the desired table element. 
Subscripting and indexing are the two methods that are used to 
specify the occurrence number of a desired table element 

Table Definition 

To define a one-dimensional tablei the programmer uses an OCCURS 
clause as part of the data description of the table element, but 
the OCCURS clause must not appear in the description of group 
items which contain the table element. 



Example 1: 

01 TABLE-1. 

02 TABLE-ELEMENT OCCURS 20 TIMES. 

03 NAME 

03 SSAN 



Defining a one-dimensional table within each occurrence of an 
element of another one-dimensional table gives rise to a 
two-dimensional table. To define a two-dimensional table, then, an 
OCCURS clause must appear in the data description of the element 
of the table, and in the description of only one group item which 
contains that table. In the description of a three-dimensional 
table, the OCCURS clause should appear in the data description of 
2 nested group items which contain the element. In COBOL, tables 
of up to 3 dimensions are permitted. 
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CONT^T 2 ^ "* / *! ble WhiCh haS ° ne dimension for 
CUNTINENT-NAME, two dimensions for COUNTRY-NAME, and three 

™ e 2 S A° nS f ° r CITY - NA ME and CITY-POPULATION. The table includes 
50 000 for^^Y^r" 10 /™ CONTINENT-NAME, 500 for COUNTRY-NAME, 
50,000 for CITY-NAME, and 50,000 for CITY-POPULATION. Within the 

rnwTTM^T^^Mrr 3 !! **" occurrences of CONTINENT-NAME. Wibhin each 
• «h CnUNTRV Lmp 6 I! aPe 5 ° ° ccu ^ences °* COUNTRY-NAME and within 
and CITY-POPULATION "" ^ hUndred occurT,en " 5 of: CITY-NAME 

Example 2: 

01 CENSUS-TABLE. 

05 CONTINENT-TABLE OCCURS 10 TIMES. 
10 CONTINENT-NAME PIC XXXXXX 
10 COUNTRY-TABLE OCCURS 50 TIMES 
15 COUNTRY-NAME PIC XXXXXXXX. 
15 CITY-TABLE OCCURS 100 TIMES. 
20 CITY-NAME PIC XXXXXXXXXX. 
20 CITY-POPULATION PIC 999999999999 

References to Table Items 

Whenever the user refers to a table element, the reference must 
^ indicate which occurrence of the element is intended. For access 
^ to a one-dimensional table, the occurrence number of the desired 

element provides complete information. For access to tables of 
more than one dimension, an occurrence number must be supplied for 
each- dimension of the table accessed. In Example 2 then, a 
reference to the 4th CONTINENT-NAME would be complete, whereas a 
rnuNTPV C L M c t0 . th ! - 4th C0UNTRY "NAME would not. To refer to 
COUNTRY-NAME, which is an element of a two-dimensional table, the 

"!! r ^„"!^!. t refer t0 ' for example, the 4th COUNTRY-NAME within the 
6th CONTINENT-TABLE. n xne 

One method by which occurrence numbers may be specified is to 
append one or more subscripts to the data-name. A subscript is a 
integer whose value specifies the occurrence number of an element 
The subscript can be represented either by a literal which is a 
integer or by a data-name which is defined elsewhere as a numeric 
elementary item with no character positions to the right of the 
assumed decimal point In either case, the subscript, enclosed in 
parentheses, is written immediately following the name of the 
table element. A table reference must include as many subscripts 
as there are dimensions in the table whose element is being 
C referenced. That is, there must be a subscript for each OCCURS 

clause in the hierarchy containing the data-name, including the 
data-name itself. In Example 2, references to CONTINENT-NAM^ 
require only one subscript, reference to COUNTRY-NAME requires 
two, and references to CITY-NAME and CITY-POPULATION require 
three. 
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When more than one subscript is required, they are written in 
order of successively less inclusive dimensions of the data 
organization. When a data-name is used as a subscript, it may be 
used to refer to items in many different tables. These tables need 
not have elements of the same size. The data-name may also appear 
as the only subscript with one item and as one of two or three 
subscripts with another item. Also, it is permissible to mix 
literal and data-name subscripts, for example: CITY-POPULATION 
(10, NEWKEY, 42). 

Another method of referring to items in a table is indexing. To 
use this technique, the programmer assigns one or more index-names 
(defined with the INDEXED-DY phrase of the OCCURS clause) to an 
item whose data description contains an OCCURS clause. There is no 
separate entry to describe the index-name since its definition is 
completely hardware-oriented and it is not considered data per se. 
At object time the contents of the index-name will correspond to 
an occurrence number for that specific dimension of the table to 
which the index-name was assigned. The initial value of an 
index-name at object time is not determinable and the index-name 
must be initialized by the SET statement before use. 

When a reference is made to a table element, or to an item within 
a table element, and the name of the item is followed by its 
related index-name or names in parentheses, then each occurrence 
number required to complete the reference will be obtained from 
the respective index-name. The index-name thus acts as a subscript 
whose value is used in any table reference that specifies 
indexing. 
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PROCEDURE DIVISION 



( 
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THE PROCEDURE DIVISION 



The Procedure Division must be included in every COBOL source 
program. This division may contain declaratives and nondec larat i ve 
procedures. 

The Procedure Division is identified by and must begin with the 
following header: 

PROCEDURE DIVISION [USING data-name-1 C, data-name-2] ...D . 



1 s 



■he USING phrase is present if and only if the object program iB 
to function urder the control of a CALL statement, and the CALL 
statement in the calling program contains a USING phrase. 

Each of the operands in the USING phrase of the Procedure Division 
header must be defined as a data item in the Linkage Section of 
the program in which this header occurs, and it must have a 01 or 
77 level-number. 

Within a called program, Linkage Section data items are processed 
according to their descriptions given in the called program Of *" 
those items defined in the Linkage Section only data-name-1, \ 
data-name-2, items subordinate to these data-names, and ~~ 
condition-names and/or index-names associated with such data-names 
and/or- subordinate data items, may be referenced in the Procedure 
Division. 

When the USING phrase is present, the object program operates as 
if data-name-1 of the Procedure Division header in the called 
pro gi am and data-name-1 in the USING phrase of the CALL statement 
in the calling program refer to a single set of data that is 
equally available to both the called and calling programs. Their 
definitions must contain the same data descriptions; however, they 
need not be the same name. In like manner, there is an equivalent 
relationship between data-name-2, ..., in the USING phrase of the 
called program and data-name-2, ..., in the USING phrase of the 
CALL statement in the calling program. A data-name must not appear 
more than once in the USING phrase in the Procedure Division 
header of the called program; however, a given data-name may 
appear more than once in the same USING phrase of a CALL 
statement. 
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Structure 

The body of the Procedure Division must conform to one of the 
following formats: 

FORMAT 1 

PROCEDURE DIVISION [USING data-name-1 [, data-name-23. . . ] . 



[DECLARATIVES. 
(section-name SECTION [segment-number], declarative-sentence 



[paragraph-name, [sentence] ... 3 . . > . . . 
END DECLARATIVES. ] 



{section-name SECTION [segment-number]. 



[paragraph-name, [sentence] . . . ] . . . > 
[END PROGRAM]. 



FORMAT 2 

PROCEDURE DIVISION [USING data-name-1 [, data-name-23. .3 



{paragraph-name, [sentence] . . . > 
[END PROGRAM]. 



The segment-number must be an integer ranging in value from 
through 127. 

( ■ If the segment-number is omitted from the section header, the 

segment-number is assumed to be 

Sections in the declaratives must contain segment-numbers less 
than 50. 

PAGE 103 



All sections which have the same segment-number constitute a 
program segment. Sections with the same segment-number must be 
physically contiguous in the source program. 

Segments with segment-numbers through 49 belong to the fixed 
portion of the object program. Segments with segment-numbers 50 
through 127 are independent segments. Independent segments must 
follow fixed segments. 

Dec larat i ves 



Declarative sections must be grouped at the beginning of the 
Procedure Division preceded by the key word DECLARATIVES and 
followed by the key words END DECLARATIVES. 



Proceiiui es 



A procedure is composed of a paragraph. or group of successive 
paragraphs, or a section, or a group of successive sections within 
the Procedure Division. If one paragraph is in a section, then all 
paragraphs must be in sections. A procedure-name is a word used to 
refer to a paragraph or section. It consists of a paragraph-name 
(which may be qualified), or a section-name. 

A section consists of a section header followed by zero, or more 
successive paragraphs. A section ends immediately before the next 
section or at the end of the Procedure Division or, in the 
declaratives portion of the Procedure Division, at the key words 
END DECLARATIVES. 

A paragraph consists of a paragraph-name followed by a period and 
a space and by zero, or more successive sentences. A paragraph 
ends immediately before the next paragraph-name or section-name or 
at the end of the Procedure Division or, in the declaratives 
portion of the Procedure Division, at the key words END 
DECLARATIVES. A paragraph-name must not be duplicated within a 
section. 



Execution 



Execution begins with the first statement of the Procedure 
Division, excluding declaratives. Statements are then executed in 
the order in which they are presented for compilation, except 
where the rules indicate some other order. 
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PROCEDURE REFERENCES 



^ 



A procedure is referred to by its paragraph-name or sec t i on-name. 
Paragraph-names may be qualified by the section-name of the 
section containing the paragraph. whether or not it needs 
qualification. When referring to a section-name or when using a 
section-name as a qualifier, the word SECTION must not appear. 
Qualification is performed by following a paragraph-name with a 
section-name preceded by IN or OF. IN and OF are logically 
equivalent. The general format for paragraph qualification is: 

paragraph-name C<OF> section-name] 

■CIN> 

A paragraph-name need not be qualified when referred to from 
within the same section or when the paragraph-name is unique. 

Explicit and Implicit Transfers of Control 

The mechanism that controls program flow transfers control from 
statement to statement in the sequence in which they were written 
ii, in the source program unless an explicit transfer of control 
_^ overrides this sequence or there is no next executable statement 
to which control can be passed. The transfer of control from 
statement to statement occurs without the writing of an explicit 
Procedure Division statement. and therefore. is an implicit 
transfer of control. 

COBOL provides both explicit and implicit means of altering the 
implicit control transfer mechanism. 

In addition to the implicit transfer of control between 
consecutive statements. implicit transfer of control also occurs 
when the normal flow is altered without the execution of a 
procedure branching statement. COBOL provides the following types 
of implicit control flow alterations which override the 
statement-to-statement transfers of control: 

If a paragraph is being executed under control of anoiher 
COBOL statement (for example, PERFORM and USE) and the 
paragraph is the last paragraph in the range of the 
controlling statement, then an implied transfer of control 

C\ occurs from the last statement in the paragraph to the control 

mechanism of the last executed controlling statement Further, 
if a paragraph is being executed under the control of a 
PERFORM statement which causes iterative execution and that 
paragraph is the first paragraph in the range of that PERFORM 
statement, an implicit transfer of control occurs betu-ec-n the 

***' control mechanism associated with that PERFORM statement and 
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the first statement in that paragraph for each iterative 
execution of the paragraph. """ 

When any COBOL statement is executed which results in the 
execution of a declarative section, an implicit transfer of 
control to the declarative section occurs. Note that another 
implicit transfer of control occurs after execution of the 
declarative. 

An explicit transfer of control consists of an alteration of the 
implicit control transfer mechanism by the execution of a 
procedure branching or conditional statement. An explicit transfer 
of control can be caused only by the execution of a procedure 
branching or conditional statement. The execution of the procedure 
branching statement ALTER does not in itself constitute an 
explicit transfer of control, but affects the explicit transfer of 
control that occurs when the associated GO TO statement is 
executed 

In this document, the term 'next executable statement' is used to 

refer to the next COBOL statement to which control is transferred 

according to the rules above and the rules associated with each 
language element in the Procedure Division. 

There is no next executable statement following: 

The last statement in a declarative section when the paragraph /*"" 
in which it appears is not being executed under the control of *^ 
some other COBOL statement. In COBOL, the result would be an *" 
implicit transfer of control to the first nondec larat i ve 
statement. 

The last statement in a program when the paragraph in which it 

appears is not being executed under the control of some other 

COBOL statement. The result would be as if an implicit STOP 
RUN statement were executed. 
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SEGMENTATION 

COBOL segmentation is a facility that provides a means by which 
the user may communicate with the compiler to specify object 
program overlay requirements. COBOL segmentation deals only with 
segmentation of procedures. 

Segments 



When segmentation is used, the entire Procedure Division must be 
in sections. In addition, each section must be classified as 
belonging either to the fixed portion or to one of the independent 
segments of the object program as determined by the assignment of 
segment numbers. All source paragraphs which contain the same 
segment-numbers can range from 00 through 127. it is possible to 
subdivide any object program into a maximum of 128 segments. 
Segmentation in no way affects the need for qualification of 
procedure-names to insure uniqueness. 

Fixed Portion 

The fixed portion is defined as that part of the object program 
which is always in memory. This portion of the program is composed 
of segments with segment-numbers through 49. 

Independent Segments 

An independent segment is defined as part of the object program 
which can overlayi and can be overlaid by, another independent 
segment. An independent segment has a segment-number 50 through 
127. 

An independent segment is in its initial state whenever control is 
transferred (either implicitly or explicitly) to that segment for 
the first time during the execution of a program. 

On subsequent transfers of control to the segment, an independent 
segment is also in its initial state when: 

Control is transferred to that segment as a result of the* 
implicit transfer of control between consecutive statements 
from a segment with a different segment-number. 

Control is transferred explicitly to that segment from a 
segment with a different segment-number. 
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s; Q L U nt eq i: nt in ra -r er ,° f . COnt : 01 t0 the Se9ment ' an independent 
!?"* 1S . ln 4 .' tS last - U5ed state when control is transferred 

-gme^-nu^r. ^^ Se9ment fr ° m ° '•«"""* " ith a "'" — * 



Segmentation Classification 



Sections which are to be segmented are classified using a system 
of segment-numbers and the following criteria: system 

re? e r P nr! qUi I eme ^ S ": SeCti0nS WhlCh muSt be mailable for 
reference at all times, or uihirh *r.« „«* ^ ^_ ..... 



,. „ . , -- times, or which are referred to very 
o!r^npni y ' 3re ;° rmall « ^"sified as belonging to one of the 
permanent segments; sections which are used less frequently 

II™«IT al 3 U ClaSsified as belonging to one of the independent 
segments, depending on logic requirements. 

referreS y to° f th: e 7" Cene ;; lly ' * h * n ° r " f ^^^ a section is 
referred to, the lower its segment-number; the less freauentlu 
a. 4 s rererred to, the higher its segment-number. 

Relationship to Other Sections — Sections which frequently 

s^ni" \ With ° ne another sh0 ^d be given the same 
segment-numbers. 

Segmentation Control 



The logical sequence of the program is the same as the physical 

tra^f^red'wiShin ' ,P " iflC transfe - •' ""trol. Control ma °be 
that il "I li; a ^T* PI°9 ram t0 an « Paragraph in a section, 

of a section ^ndatory to transfer control to the beginning 



Restrictions on Program Flow 



nil "Ik S A, 9 ™ tation is U5ed ' the Allowing restrictions are placed 
on the ALTER and PERFORM statements. P 






r 
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The ALTER STATEMENT 

A GO TO statement in a section whose segment-number is greater 
than or equal to 50 must not be referred to by an ALTER statement 
in a section with a different segment-number. 

The PERFORM STATEMENT 

A PERFORM statement that appears in a section that is not in an 
independent segment can have within its range* in addition to any 
declarative sections whose execution is caused within that range. 
only one of the following: 

Sections and/or paragraphs wholly contained in one or more 
fixed segments, or 

Sections and/or paragraphs wholly contained in a single 
independent segment. 

A PERFORM statement that appears in an independent segment can 
have within its range, in addition to any declarative sections 
whose execution is caused within that range, only one of the 
following: 

Sections and/or paragraphs wholly contained in one or more 
fixed segments, or 

Sections and/or paragraphs wholly contained in the same 
.independent segment as that PERFORM statement. 
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THE USE STATEMENT 



h T an%n r E g St :LTare in'add J HonT^H ""I ^ in ^'^P^ "ror 
hn th a ?„„ * f x addltlon t0 the standard procedures provided 

by the input-output control system It is a rnmnn^ , i 

statement required in each declarative section. ' darect.ng 



FORMAT 

USE AFTER STANDARD -CEXCEPTION> 

{ERROR > 



!-°fZ™ E ° N {file - name - 1 Cfile-name-23 ...> 

< INPUT y 

•COUTPUT 3. 

■CI-0 3. 

{EXTEND , 



limit J?":" d „„. a spa " The ""■"«•- '' th':"«; .„':„.; 

consist of zero, one or more procedural paragrahs that defin* h b 
procedures to be used. K s s xnat oe^ine the 

The USE statement itself is never executed; it merely defines fch* 
conditions calling for the execution of the USE procedure 

The same file-name can appear in only one USE statement. 
Int%; c °han S g L R ^. and EXCEPTI ° N *" ■«"-"« — . «- ma y b e used 

IJstem'af^errLnr^ 6 ^:! 5 " n be execut ^ bg the input-output 

system after completing the standard input-output error routine 

or upon recognition of the INVALID kfv n* at run I ■ I • routine ' 

the INVALID upv «k^=. It ™ A END conditions, when 

n i i h S .° r ? PhraSe ' res P ec tivel«, has not 
oeen specified in the input-output statement. 

^inHoutlne. "' ' * »"»"■"• »"*»! i. returned t. t h e 
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Within a USE procedure, there must not be any reference to any 
nondec larative procedures. Conversely, in the nondeclarative 
portion there must be no reference to procedure-names that appear 
in the declarative portion, except that PERFORM statements may 
refer to a USE statement or to the procedures associated with such 
a USE statement. 

Within a USE procedure, there must not be the execution of any 
statement that would cause the execution of a USE procedure that 
had previously been invoked and had not yet returned control to 
the invoking routine. 

USE Example: 



PROCEDURE DIVISION. 
DECLARATIVES. 
IO-ERROR SECTION. 

USE AFTER STANDARD ERROR PROCEDURE ON I-O. 
IO-ERROR. 

DISPLAY "INPUT-OUTPUT ERROR OCCURRED". 

ACCEPT CONTINUE-FLAG POSITION ZERO. 

IF CONTINUE-FLAG - "NO" STOP RUN. 
END DECLARATIVES. 
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ARITHMETIC STATEMENTS 



I. h mTD?rT t l! metiC statements AD &< COMPUTE, DIVIDE, MULTIPLY, and 
bUBTRACT have several common features: 

The data descriptions of the operands need not be the same; 
any necessary conversion and decimal point alignment is 
supplied throughout the calculation. 

Arithmetic operations are calculated in either binary, 
decimal, packed decimal, or mixed depending on the USAGE of 
-ule° PerandS and receiving item according to the following 

nton^! receiving data item of a divide operation is 
DISPLAY or COMPUTATIONAL, the operation is always 
calculated in decimal with any necessary conversions. 

Intermediate and final results are calculated in binary if 
all preceding intermediate results are binary and the nest 
operand has COMPUTATIONAL-1 usage (except as noted in 
previous paragraph). Otherwise, the remaining intermediate 
and final results are calculated in decimal with any 
necessary conversions. 

The maximum size of each operand is eighteen (18) decimal £. 
digits. The composite of operands, which is a hypothetical 
data item resulting from the super-imposition of specified 
operands in a statement aligned on their decimal points, must 
not contain more than eighteen decimal digits. 

Arithmetic Expressions 



An arithmetic expression can be an identifier of a numeric 
elementary item, a numeric literal, such identifiers and literals 
separated by arithmetic operators, two arithmetic expressions 
separated by an arithmetic operator, or an arithmetic expression 
enclosed in parentheses. Any arithmetic expression may be preceded 
by a unary operator. The permissible combinations of variables, 
numeric literals, arithmetic operator and parentheses are given in 
Combination of Symbols in Arithmetic Expressions Table. 

Those identifiers and literals appearing in an arithmetic 
expression must represent either numeric elementary items or 
numeric literals on which arithmetic may be performed 
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Arithmetic Operators 



There are four binary arithmetic operators and two unary 

arithmetic operators that may be used in arithmetic expressions 

They are represented by specific characters that must be preceded 
by a space and followed by a space. 

Binary Arithmetic 

Operators Meaning 



Addition 
Subtracti on 
Multiplication 



* 



/ Division 

Unary Arithmetic 

Operators Meaning 



The effect of multiplication 
by numeric literal +1 

The effect of multiplication 
by numeric literal -1. 



Formation and Evaluation Rules 



Parentheses may be used in arithmetic expressions to specify the 
order in which elements are to be evaluated. Expressions within 
parentheses are evaluated first, and within nested parentheses, 
evaluation proceeds from the least inclusive set to the most 
inclusive set. When parentheses are not used, or parenthesized 
expressions are at the same level of inc 1 usi veness, the following 
hierarchical order of execution is implied: 

1st - Unary plus and minus 

2nd - Multiplication and division 

3rd - Addition and subtraction 
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Parentheses are used either to eliminate ambiguities in logic 
where consecutive operations of the same hierarchical level appear 
or to modify the normal hierarchical sequence of execution in 
expressions where it is necessary to have some deviation from the 
normal precedence. When the sequence of execution is not secified 
by parentheses, the order of execution of consecutive operations 
of the same hierarchical level is from left to right. 



The mays in which operators, variables, and parentheses may be 
combined in an arithmetic expression are summarized 
following table, where: 



in 



the 



The letter 'P ' indicates a permissible pair of symbols. 
The character '-' indicates an invalid pair. 
'Variable' indicates an identifier or literal. 



FIRST 
SYMBOL 




SECOND SYMBOL 






Var iab le 


Variable 


P 


1 Unary + or - 


! ( 


! ) 
i P 


* / + - 


P 


- 


P 


P 


- 


Unary +or- 


P 


1 


P 


- 


( 


P 


- 


P 


P 


- 


) i 


- ! 


P 


_ 


mm. 


P 



faff/ 



An arithmetic expression may only begin with the symbol '('• '+', 
'-'» or a variable and may only end with a ' ) ' or a variable. 
There must be a one-to-one correspondence between left and right 
parentheses of an arithmetic expression such that each left 
parenthesis is to the left of its corresponding right parenthesis. 



Arithmetic 
operations 



expressions allow the user to combine arithmetic 
without the restrictions on composite of operands 
and/or receiving data items. 



CONDITIONALS 



The conditions 
switch-status A 



are relation, class, condition-name, and 
condition has a truth value of 'true' or 'false' 
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r. 



Relation Condition 



A relation condition causes a comparison of two operands, each of 
which may be the data item referenced by an identifier or a 
literal. A relation condition has the truth value of 'true' if the 
relation exists between the operands. 

Comparison of two numeric operands is permitted regardless of the 
formats specified in their respective USAGE clauses. However for 
all other comparisons the operands must have the same usage If 
either of the operands is a group item, the nonnumeric comparison 
rules apply. 

The general format of a relation condition is as follows. 

{identif ier-l> -CIS CNOTD GREATER THANMi dent i f i er-2 > 
•Cliteral-1 > -CIS CNOTD LESS THAN Ml i teral-2 > 
■Cindex-name-1} -CIS CNOTD EQUAL TO Mindex-name-2 > 

■CIS [NOT] > > 

■CIS CNOT3 < > 

■CIS CNOT] = > 



The first operand ( i dent i f i er-1 , literal-1 or inde x-name-1 ) is 
called the subject of the condition; the second operand 
(identifier-2, literal-2 or inde x-name-2 ) is called the object of 
the condition. The relation condition must contain at * l»ast one 
reference to a variable. 
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lade iD Pera ° ■ specifies the type of comparison to be 

TAL V re i atlon condition. A space must precede and follow each 

Inn Ik word comprising the relational operator. When used, 'NOT' 

r E n "* *•« word or relation character are one relational 

vlloV e o 'MnT fi S;n A ,* h V COm > aT>ison *" b * executed for tru?J 

value, e.g., 'NOT EQUAL' is a truth test for an 'uneaual' 

comparison; 'NOT GREATER' is a truth test for an 'equal' or 'letl < 

comparison. The meaning of the relational operators is as follows: 



Meaning 



Relational Operator 



Greater than or not greater than IS CNOT] GREATER THAN 

IS CNOTD > 



Less than or not less than 



IS CNOT3 LESS THAN 
IS [NOT] < 



Equal to or not equal to 



is cnot: equal to 
is [not: = 



NOTE: The 



'< 



and '= 



are 



required relational characters '">' 
not underlined to avoid confusion with other ' symbol s such 
as '>' (greater than or equal to). 



Comparison of Numeric Operands 



r „ ^ ! Cl3SS 1S numeric a comparison is made with 
respect to the algebraic value of the operands. The length of the 
literals or operands, in terms of number of digits represented, is 
not significant. Zero is considered a unique value regardless of 

Comparison of these operands is permitted regardless of the manner 
in which their usage is described. Unsigned numeric operands are 
considered positive for purposes of comparison 
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c 



Comparison of Nonnumeric Operands 

For nonnumeric operands, or one numeric and one nonnumeric 
operand, a comparison is made with respect to a specified 
collating sequence of characters. If one of the operands is 
specified as numeric, it must be an integer data item or an 
integer literal and: 

If the nonnumeric operand is an elementary data item or a 
nonnumeric literal, the numeric operand is treated as though 
it were moved to an elementary alphanumeric data item of the 
same size as the numeric data item (in terms of standard data 
format characters), and the contents of this alphanumeric data 
item were then compared to the nonnumeric operand. 

If the nonnumeric operand is a group item, the numeric operand 
is treated as though it were moved to a group item of the same 
size as the numeric data item (in terms of standard data 
format characters), and the contents of this group item were 
then compared to the nonnumeric operand. 

A noninteger numeric operand cannot be compared to a nonnumeric 
op erand. 

The size of an operand is the total number of standard data format 
characters in the operand. Numeric and nonnumeric operands may be 
compared only when their usage is the same. There are two cases to 
consider: operands of equal size and operands of unequal size. 

Operands of equal size: If the operands are of equal size, 
comparison effectively proceeds by comparing characters in 
corresponding character positions starting from the high order end 
and continuing until either a pair of unequal characters is 
encountered or the low order end of the operand is reached, 
whichever comes first. The operands are determined to be equal if 

?,£.« W T \ ° f / hara = ters compare equally through the last pair, 
when the low order end is reached. 

The first encountered pair of unequal characters is compared to 
determine their relative position in the collating sequence The 
operand that contains the character that is positioned highe 
vhe collating sequence is considered to be the greater operan 

Operands of unequal size: If the operands are of unequal size, 
comparison proceeds as though the shorter operand were extended on 
the right by sufficient spaces to make the operands of equal size 



r in 
perand. 
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Comparisons of Index-Names and/or Index Data Items 

If two index-names are compared the result is the same as if the 
corresponding occurrence numbers were compared. 

For an index-name and a data item (other than an index data item) 
or literal/ the comparison is made between the occurrence number 
that corresponds to the value of the index-name and the data item 
or 1 i teral. 

When a comparison is made between an index data item and an 
index-name or another index data item. the actual values are 
compared without conversion. 

The result of the comparison of an index data item with any data 
item or literal not specified above is undefined. 

Class Condition 



The class condition determines whether the operand is numeric, 
that is. consists entirely of the characters '0', '1', '2', '3', 
■■■> "?'< with or without the operational sign; or alphabetic, 
that is, consists entirely of the characters 'A', "B ' , 'C, .... 
'!'• space. The general format for the class condition is as '"" 
follows: 



identifier IS [NOT] {NUMERIC > 

{ALPHABET I C> 



The usage of the operand being tested must be described as 
display. When used, 'NOT' and the next key word specify one class 
condition that defines the class test to be executed for truth 
value, e.g., 'NOT NUMERIC is a truth test for determining that an 
operand is nonnumeric. 
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The NUMERIC test cannot be used with an item whose data 
descrxptxon describes the item as alphabetic or as a group i tem 
composed of elementary items whose data description indicates the 

sinn IhI I K° eS "^ indi " te *»'* Presence of an operational 

Jh. iont^f. 9 teSt6d iS det "«"i"«d to be numeric only il 

the contents are numeric and an operational sign is not present 

In *t* t dSSCri P tion ° f *"• it.n, does indicate the presence of 

an operational sign, the item being tested is determined Jo be 
numeric only if the contents are numeric and a valid raton 

s^and^Tr^ ^i^ ^^iona! *^s ^r data items Ire the 
Standard nata £n-nm_-, +- -. u -.— _ _ *. , . , = > =■ one 



standard data format characters, 



'+' and '-' 



The ALPHABETIC test cannot be used with an item whose data 
description describes the item as numeric. The item b-in e 

;Lh e * e r ined *° bB al P habetic onl y ^ the contents consist of any 
combination of the alphabetic characters 'A' through 'Z' and 

S p at 6 , 

Condition-name (Conditional Variable) 



the 



In a condition-name condition, a conditional variable is tested f„ 
determine whether or not its value is equal to one of the va ues 
associated with a condition-name. The general-format f 
condition-name condition is as follows- format for the 



c ond i t ion-name 



ltJ he condition-name is associated with a range of values, then 

va!ue°^M 10nal ,r ariable 1S t6Sted t0 de termine whether o not ts 
value falls in this range, including the end values 

HIV*™ 1 * 5 f ° r com Paring a conditional variable with a 
condltJo ";^ 6 ValUe are the "^ aS th ° 5e ^"ifi.d far ration 

lo 6 tI. SU conSitJ he ^^ ^ ^^ lf ° ne ° f the ValU65 — "ponding 
° Dn nd ^xon-name equals the value of its associated 
conditional variable. 
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Switch-Status Condition 



A switch-status condition determines the 'on' or 'off' status of a 
software switch. The switch-name and the 'on' or 'off value 
associated with the condition must be named in the SPECI AL-NAMES 
paragraph of the Environment Division. The general format for the 
switch-status condition is as follows: 

c ond i t ion-name 

The result of the test is true if the switch is set to the 
specified position corresponding to the condition-name. 

Complex Conditions 



A complex condition is formed by combining simple conditions, 
combined conditions and/or complex conditions tuith logical 
connectors (logical operators 'AND' and 'OR') or negating these 
conditions with logical negation (the logical operator 'NOT'). The 
truth value of a complex condition/ whether parenthesized or not, 
is that truth value which results from the interaction of all the 
stated logical operators on the individual truth values of simple s* 
conditions, or the intermediate truth values of conditions ^ 
logically connected or logically negated. The logical operators 
and their meanings are: 

Logical Operator Meaning 

AND Logical conjunction; the truth value 

is 'true' if both of the conjoined 
conditions are true; 'false' if one 
or both of the conjoined conditions 
is false. 

0R Logical inclusive OR; the truth value 

is 'true' if one or both of the 
included conditions is true; 'false' 
if both included conditions are false. 

N0T Logical negation or reversal of truth 

value; the truth value is 'true' 
if the condition is false; 
'false' if the condition is true. 

The logical operators must be preceded by a space and followed by „~~. 
a space. 
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its 



Negated Simple Conditions 



simple condition is negated through the 



use of the logical 



operator 'NOT'. The negated simple 

truth value for a simple condition. 

negated simple condition is 'true' 

of the simple condition is 'false'; 

simple condition is 'false' if and 

simple condition is 'true'. The inclusion in parentheses 

negated simple condition does not change the truth value. 



condition effects the opposite 
Thus the truth value of a 
if and only if the truth value 
the truth value of a negated 
only if the truth value of the 

of a 



The general format for a negated simple condition 
NOT simple-condition 



1 s: 



Combined and Negated Combined Conditions 



** 



A combined condition results from connecting conditions with one 
of the logical operators 'AND' or 'OR'. The general format of a 
combined condition is: 



condition -C-CAND> condition> ... 
■COR > 

Where 'condition' may be: 

A simple condition, or 

A negated simple condition, or 

A combined condition, or 

A negated combined condition; i.e., the 'NOT' logical operator 
followed by a combined condition enclosed within parentheses, 
or 

Combinations of the above. 



PAGE 121 



Although parentheses need never be used when either 'AND' or 'OR' 

n!^!, + K b°th) i 5 used exclusively in a combined condition, 

parentheses may be used to affect the final truth value uh 
mature of 'AND', 'OR' and 'NOT' is used. 

Condition Evaluation Rules 



Condition Evaluation Rules indicate the ways in which conditions 

mCst be^a Tnl'l*™ "** " combi ^ and parenthesized. There 
must be a one-to-one correspondence between left and rioht 
parentheses such that each left parenthesis is to the le of 
corresponding right parenthesis. 

condition! 5 /^ f US6d t0 s P ecif y the "der in which individual 
5 °* " m P le * "ndition. are to be evaluated when it is 
CnnHil y °.. dePart fr ° m the *«Plied evaluation precedence 
Condition, within parentheses are evaluated first, and, within 

conditinn a r n L he5e5 '. evaluation Proceeds from the least incl 
condition to the most inclusive condition. When parentheses are 
not used, or parenthesized conditions ars at ths? B j 2 f 

nclusiveness, the following hierarchical order of c 
svluation is imp i ied until the final truth valup is de ° t lr m ine d 

Truth values for simple conditions are established. 

Truth values for negated simple conditions are established. 

Truth values for combined conditions are established: 

'AND' logical operators, followed by 
'OR' logical operators. 

Truth values for negated combined conditions are established. 

When the sequence of evaluation is not completely specified by 
parentheses, the order of evaluation of consecutive operations 
of the same hierarchical level is from left to right 



V 
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SEQUENTIAL ORGANIZATION INPUT-OUTPUT 



The sequential organization input-output statements in the 
Procedure Division are the CLOSE* OPEN, READ. REWRITE, UNLOCK, 
USE, and WRITE statements. 



Function 



Sequential organization input-output provides a capability to 
access records of a file in established sequence. The sequence is 
established as a result of writing the records to the file. 



Organization 



Sequential files are organized such that each record in the file 
except the first has a unique predecessor record, and each record 
except the last has a unique successor record. These 
predecessor-successor relationships are established by the order 
of WRITE statements when the file is created. Once established, 
the predecessor-successor relationships do not change except in 
the case where records are added to the end of the file 



Access Mode 



In the sequential access mode, the sequence in which records are 
accessed is the order in which the records were originally 



wr i tten. 



Current Record Pointer 



The current record pointer is a conceptual entity used in this 
document to facilitate specification of the next record to be 
accessed within a given file. The concept of the current record 
pointer has no meaning for a file opened in the output mode. The 
setting of the current record pointer is affected only by the OPEN 
and READ statements. 
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I -D Status 



Itlut i« n! S ™TUE> clause is specified in a file control entry, a 
til ! J laced /"to the specified two-character data item during 

Ind L e f^!° n ° f ^ ? PEN ' CLDSE< READ ' WRITE ' ^ REW ^TE statemen? 
to thi rnnni ^ appl * cable USE P rocedu ™ i» executed, to indicate 
to the COBOL program the status of that input-output operation. 

Status Key 1 

The leftmost character position of the FILE STATUS data item is 
" ;; H aS Status ke « 1 «"* i* set to indicate one of the fol ling 
conditions upon completion of the input-output operation: 

^rrI e S r,r SfUl C ° mpleti ° n - The ^put-output statement was 
successfully executed. 

'1' - At End. The sequential READ statement was unsuccessfully 
executed as a result of an attempt to read a record when no 
next logical record exists in the file. 



was 



'3' - Permanent Error. The input-output statement 

fnn C !! 5fUl ^ , e " e ' Uted aS the result of a boundary violation 
for a sequential file or as the result of an input-output 
error, such as data check parity error, or transmission error. 

'9' - General Error. The input-output statement was 

!!r 5 f! !, e, "^ d aS a reSult of a condition that is 
specified by the value of status key 2. 

Status Key 2 

Inn,,n r lc ht rr ^ haracter Portion of the FILE STATUS data item is 

known as status key 2 and is used to further describe the results 

of the input-output operation. This character will contain a value 
as roll ows : 

I! 4."° * f " rther i"f°™ation is available concerning the 
input-output operation, then status key 2 contains a value of 

When status key 1 contains a value of '3' indicating a 
permanent error condition, status key 2 may contain a value of 
4 indicating a boundary violation. This condition indicates 
that an attempt has been made to write beyond the externally 
defined boundaries of a sequential file. 



/-" 
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When status key 1 contains a value of '9' indicating an 
operating system error condition, the value of status key 2 
-"' may contain a: 

'0' indicating an invalid operation. This condition 
indicates that an attempt has been made to execute a READi 
WRITE, or REWRITE statement that conflicts with the current 
open mode or a REWRITE statement not preceded by a 
successful READ statement. 

'1' indicating file not opened. This condition indicates 
that an attempt has been made to execute a DELETE, START, 
UNLOCK, READ, WRITE, REWRITE or CLOSE statement on a file 
which is not currently open. 

'2' indicating file not closed. This condition indicates 
that an attempt has been made to execute an OPEN statement 
on a file which is currently open. 

'3' indicating file not available. This condition indicates 
that an attempt has been made to execute an OPEN statement 
for a file closed WITH LOCK. 

'4' indicating an invalid open. This condition indicates 
that an attempt has been made to execute an OPEN statement 
for a filt with no external correspondence or a file having 
i* inconsistent parameters. 

'5' indicating invalid device or no next reel. This 
condition indicates that an attempt has been made to open a 
file having parameters (e.g., open mode or organization) 
which conflict with the device assignment (RANDOM, INPUT, 
PRINT, . . . ) or that an attempt has been made to execute a 
CLOSE REEL statement for the last reel/unit of a multi-reel 
file. In the case of a CLOSE REEL, the file has been 
closed. 

'6' indicating an undefined current record pointer status. 
This condition indicates that an attempt has been made to 
execute a READ statement after occurrence of an 
unsuccessful READ statement without an intervening 
successful CLOSE and OPEN. 

'7' indicating an invalid record length. This condition 

indicates an attempt has been made to open a file that was 

defined with a maximum record length different from the 

-,-- externally defined maximum record length, or to execute a 

*- - WRITE statement that specifies a record with a length 

smaller than the minimum or larger than the maximum record 
size, or a REWRITE statement when the new record length is 
different from that of the record to be rewritten 
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RELATIVE ORGANIZATION INPUT-OUTPUT 



™: R ?Los E r e iKE?Er ut s?iN ,t s^r% t iwR; T r%?is? tdi,r " Diwsion - 

statements. D ' REWRITE ' START, UNLOCK and WRITE 

Function 



Relative input-output provides a capabilitu to arr» e c ^=.„ a 

position in the file. Tne rec °™ s logical 

Organization 



"e^cer.^NDOH .15*"^*'°" U '"•»"*•< "1, on *a S , stora 9e 



:.c"; 1 "Lc: t :i ,, ! h of •"■■• °°< : ££•'•* ».."n. e, : p .:;.„ o r 

record. Each of these areas is denominated bg a relativp ^L„.h 
record area, whether, „,. „„* . " . 1U anc ' ls the tenth 



retrieved bai» « . ~ " er °' Records *™ stored and 

Access Modes 



acces^d ?I <l *r-* 1 * 1 - 5"" m ° de ' the •■<«•"« in which records are 

an "cords lLh% Cendln !,° rder ° f the relative record numbers of 
an records which currently exist within the file. 
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In the random access mode; the sequence in which records are 
accessed is controlled by the programmer. The desired record is 
accessed by placing its relative record number in a relative key 
data item. 

In the dynamic access mode, the programmer may change at will from 
sequential access to random access using appropriate forms of 
input-output statements. 

Current Record Pointer 



The current record pointer is a conceptual entity used in this 
document to facilitate specification of the next record to be 
accessed within a given file. The concept of the current record 
pointer has no meaning for a file opened in the output mode. The 
setting of the current record pointer is affected only by the 
OPEN, READi and START statements. 



1-0 Status 



If the FILE STATUS clause is specified in a file control entry, a 
value is placed into the specified two-character data item during 
the execution of an OPEN, CLOSE, READ, WRITE, REWRITE, DELETE, or 
START statement and before any applicable USE procedure is 
executed, to indicate to the COBOL program the status of that 
input-output operation: 

Status Key i 

The leftmost character position of the FILE STATUS data item is 
known as status key 1 and is set to indicate one of the r Dllowing 
conditions upon completion of the input-output operation 

'0' - Successful Completion. The input-output was successfully 
executed. 

'1' - At End. The statement was unsuccessfully executed as a 
result of an attempt to read a record when no next logical 
record exists in the file. 
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'2' - Invalid Key. The input-output statement was 
unsuccessfully executed as a result of one of the following; 

Duplicate Key 
No Record Found 
Boundary Violation 

'3' - Permanent Error. The input-output statement was 

unsuccessfully executed as the result of an input-output 

error, such as data check, parity error, or transmission 
error. 

'9' - General Error. The input-output statement mas 
unsuccessfully executed as a result of a condition that is 
specified by the value of status key 2. 

Status Key 2 

The rightmost character position of the FILE STATUS data item is 
known as status key 2 and is used to further describe the results 
of the input-output operation. This character will contain a value 
as follows: 

If no further information is available concerning the 
input-output operation, then status key 2 contains a value of 
'0'. 

When status key 1 contains a value of '2' indicating an 
INVALID KEY condition* status key 2 is: 

'2' indicating a duplicate key value. An attempt has been 
made to write a record that would create a duplicate key. 

'3' indicating no record found. An attempt has been made 
to access a record, identified by a key, and that record 
does not exist in the file. 

'4' indicating a boundary violation. An attempt has been 
made to write beyond the externally-defined boundaries of 
a file. 

When status key 1 contains a value of '9' indicating an 
operating system error condition, the value of status key 2 
is: 

'0' indicating invalid operation. An attempt has been made 
to execute a DELETE, READ, REWRITE, START, or WRITE 
statement which conflicts with the current open mode of 
the file or a sequential access DELETE or REWRITE 
statement not preceded by a successful READ statement. 



u 

v 
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1' indicating file not opened. This condition indicates 
that an attempt has been made to execute a DELETE, START 
UNLOCK, READ, WRITE, REWRITE, or CLOSE statement on ? file 
which is not currently open. 

'2' indicating file not closed. An attempt has been made 
to execute an OPEN statement on a file that is currently 
open. 

'3' indicating file not available. An attempt has been 
made to execute an OPEN statement for a file closed WITH 
LOCK. 

'4' indicating invalid OPEN. An attempt has been made to 
execute an OPEN statement for a file with no external 
correspondence or a file having inconsistent parameters. 

'5' indicating invalid device. This condition indicates 
that an attempt has been made to open a file having 
parameters (e.g., open mode or organization) which 
conflict with the device assignment (RANDOM, INPUT, PRINT, 

'6' indicating an undefined current record pointer status 
Thii condition indicates that an attempt has been made to 
execute a sequential READ statement after the occurrence 
of an unsuccessful READ or START statement without an 
intervening successful CLOSE and OPEN. 

'7' indicating an invalid record length. This condition 
indicates that an attempt has been made to OPEN, a file 
that was defined with a maximum record length different 
from the externally defined maximum record length, or to 
execute a WRITE statement that specifies a record with a 
length smaller than the minimum or larger than the maximum 
record sire, or a REWRITE statement when the new record 
length is different from that of the record to be 
rewritten. 



The INVALID KEY Condition 



The INVALID KEY condition can occur as a result of the execution 
of a START, READ, WRITE, REWRITE, or DELETE statement. 

When the INVALID KEY condition is recognized, the System takes 
these actions in the following order: 



*_^ 
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A value is placed into the FILE STATUS data item, if specified 
for this file, to indicate an INVALID KEY condition. 

ca'usino tl^^ ■ S^ ^^ U s P eci 'i*< *" the statement 
K?? JmJj I-"" i i "' contro1 is transferred to the INVALID 
KEY imperative statement. Any USE procedure specified for this 
tile is not executed. 

If the INVALID KEY phrase is not specified, but a USE 
procedure is specified, either explicitly or implicitly, for 
tms file, that procedure is executed. 

When the INVALID KEY condition occurs, execution of the 
input-output statement which recognised the condition is 
unsuccessful and the file is not affected. 

The AT END Condition 



I£!L «L. END COndition . can occur as a result of the execution of a 
p^2n s * a * emen *- wnen ™* AT END condition occurs, execution of the 
READ statement is unsuccessful *° n ° tne 



* 
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INDEXED ORGANIZATION INPUT-OUTPUT 



Indexed input-output statements in the Procedure Division are the 
CLOSE, DELETE, OPEN, READ, REWRITE, START, UNLOCK and WRITE 
statements. 



Function 



Indexed input-output provides a capability to access records of a 
mass storage file in either a random or sequential manner. Each 
record in a nonsequential organization file is uniquely identified 



by a key 
Organi zation 



A file whose organization is indexed is a mass storage file in 
which data records may be accessed by the value of a key. A record 
description may include one or more key data items, each of which 
^ is associated with an index. Each index provides a logical path to 
^ the data records according to the contents of a data item within 

each record which is the recorded key for that index 

The- data item named in the RECORD KEY clause of the file control 
entry for a file is the prime record key for that file For 
purposes of inserting, updating and deleting records in a file, 
each record is identified solely by the value of its prime record 
key. This value must, therefore, be unique and must not be changed 
when updating the record. 

Access Modes 



In the sequential access mode, the sequence in which records are 
accessed is the ascending order of the keys of all records which 
currently exist within the file. 

In the random access mode, the sequence in which records are 
accessed is controlled by the programmer. For indexed files, the 
desired record is accessed by placing the value of its record keu 
in a record key data item. 
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In the dynamic access mode, the programmer may change at will from 
sequential access to random access using appropriate forms of 
input-output statements. 



Current Record Pointer 



The current record pointer is a conceptual entity used in this 
document to facilitate specification of the next record to be 
accessed within a given file. The concept of the current record 
pointer has no meaning for a file opened in the output mode. The 
setting of the current record pointer is affected only bu the 
OPEN, READ, and START statements. 



1-0 Status 



If the FILE SiAlUS clause is specified in a file control entry, a 
value is placed into the specified two-character data item during 
the execution of an OPEN, CLOSE, READ, WRITE, REWRITE, DELETE, or 
START statement and before any applicable USE procedure is 
executed, to indicate to the COBOL program the status of that 
input-output operation: 

Status Key 1 

The leftmost character position of the FILE STATUS data item is 
known as status key 1 and is set to indicate one of the following 
conditions upon completion of the input-output operation: 

'0' - Successful Completion. The input-output was successfully 
executed. 

'1' - At End. The Format 1 READ statement was unsuccessfully 
executed as a result of an attempt to read a record when no 
next logical record exists in the file. 

'2' - Invalid Key. The input-output statement was 
unsuccessfully executed as a result of one of the following: 

Sequence Error 
Duplicate Key 
No Record Found 
Boundary Violation 
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'3' - Permanent Error. The input-output statement ,,« 
unsuccessfully executed as the 'result' of ' ! out 
error, such as data check, parity error, or transmission 



'9' - General Error. The input-output statement was 

, U nL UC ^ S H f K Ull L eXeCUted aS a reSUlt 0f a condition that " 
specified by the value of status key 2. 



Status Key 2 



The rightmost character position of the FILE STATUS data item is 
known as status key 2 and is used to further describe the result 
as follows " °P^ation. This character will contain a value 

innnf n n, *. f r ther J nf ° rmation is available concerning the 
input-output operation, then status key 2 contains a value of 



?u«-«;2rf ?V COntflins a value °* O, indicating a 
Jn5i«M» "JP^tion, status key 2 may contain a value of 2? 
indicating a duplicate key. This condition indicates 



For a READ statement, the key value for the current key of 
reference is equal to the value of that same key in the 
next record within the current key of reference. 

For a WRITE or REWRITE statement, the record just bitten 

lilt I d L a , dUP ^ Ca J e key Value for at least on « alternate 
record key for which duplicates are allowed. 

iUJIlU*^! kS \ !,. COntains * v.lu. of '2' indicating an 
INVALID KEY condition, status key 2 is: 

irr'.f? di < Cat w n9 , *■, se 1 uence error for a sequentially 
accessed indexed file. The ascending sequence requirement 
of successive record key values has been violated or the 
record key value has been changed by the COBOL program 
between the successful execution of a READ statement and 
the execution of the next REWRITE statement for that file 
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'2' indicating a duplicate key value. An attempt has been -^ 
made to u/rite a record that would create a duplicate key 

'3' indicating no record found. An attempt has been made 
to access a record/ identified by a key* and that record 
does not exist in the file. 

'4' indicating a boundary violation. An attempt has been 
made to write beyond the externally-defined boundaries of 
a file 

When status key 1 contains a value of '9' indicating an 
operating system error condition, the value of status key 2 

i s : 

'0' indicating invalid operation. An attempt has been made 
to execute a DELETE, READ, REWRITE, START, or WRITE 
statement which conflicts with the current open mode of 
the file or a sequential access DELETE or REWRITE 
statement not preceded by a successful READ statement. 

'1' indicating file not opened. This condition indicates 
an attempt has been made to execute a delete, start, 
unlock, read, write, rewrite, or close statement on a file 
that is not currently open. 

'2' indicating file not closed. An attempt has been made ^ 
to execute an OPEN statement on a file that is currently v - 
open. 

'3' indicating file not available. An attempt has been 
made to execute an OPEN statement for a file closed with 
LOCK. 

'4' indicating Invalid open. An. attempt has been made to 
execute an OPEN statement for a file with no external 
correspondence or a file having inconsistent parameters. 

'5' indicating invalid device. This condition indicates 
that an attempt has been made to open a file having 
parameters (e.g.. open mode or organization which conflict 
with the device assignment (RANDOM, INPUT, PRINT, ...)). 

'6' indicating an undefined current record pointer status. 
This condition indicates that an attempt has been made to 
execute a sequential READ statement after the occurrence 
of an unsuccessful READ or START statement without an 
intervening successful CLOSE and OPEN. 
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'7' indicating an invalid record length. This condition 
indicates that an attempt has been made to open a file 
that was defined with a maximum record length different 
from the externally defined maximum record length; or to 
execute a WRITE statement that specifies a record with a 
length smaller than the minimum or larger than the maximum 
record size* or a REWRITE statement when the nej record 
length is different from that of the record to be 
rewritten. 

'8' indicating an invalid indexed file. This condition 
indicates that the indexed file contains inconsistent 
data. This is a catastrophic error from which there is no 
recovery at the present time. 



<*t 



c 
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The INVALID KEY Condition 



l*l\ QTAPT ID o^n Y condition can occur as a result of the execution 
of a START, READ, WRITE, REWRITE, or DELETE statement. 

When the INVALID KEY condition is recognized, the System takes 
these actions in the following order: 

A value is placed into the FILE STATUS data item, if specified 
for this file, to indicate an INVALID KEY condition. 

If the INVALID KEY phrase is specified in the statement 

causing the condition, control is transferred to the INVALID 

KEY imperative statement. Any USE procedure specified for this 
file is not executed. 

If the INVALID KEY phrase is not specified, but a USE 
procedure is specified, either explicitly or implicitly, for 
this file, that procedure is executed. 

When the INVALID KEY condition occurs, execution of the 
input-output statement which recognized the condition is 
unsuccessful and the file is not affected. 

The AT END Condition 



ppln M + END !° n , d ,. iti0 ^ Ca " ° CCur as a re6ul * of the execution of «, 
pp2£ s * a * emen *- . When the AT END condition occurs, execution of the 
READ statement is unsuccessful. 



a 
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PROCEDURAL STATEMENTS 



(^ 



*«_,- 



The ACCEPT ... FROM Statement 



The ACCEPT statement causes the information requested to be 
transferred to the data item specified by identifier-1 according 
to the rules of the MOVE statement. DATE, DAY, and TIME are 
conceptual data items and, therefore, are not described in the 
COBOL program. 



FORMAT 

ACCEPT identifier-1 FROM <DATE> 

{DAY > 
<TIME> 



DATE is composed of the data elements year of century, month of 
year, and day of month. The sequence of the data element codes is 
from high order to low order (left to right), year of century, 



month of year, and 
expressed as 790701. 
behaves as if it 
unsigned elementary 
length. 



day of month. Therefore, July 1. 1979 would be 

DATE, when accessed by a COBOL program 

had been described in the COBOL program as an 

numeric integer data item six digits in 



DAY it composed of the data elements year of century and day of 
year. The sequence of the data element codes is from hinh order to 
low order (left to right) year of century, day of year. "Therefore, 
rnnX, U0Uld b * ex P ressed ^ 79181. DAY, when accessed by a 

COBOL program as an unsigned elementary numeric intsaer d, 
five digits in length. 



a -a item 
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TIME is composed of the data elements hours, minutes, seconds and 
hundredths of a second. TIME is based on elapsed time after 
midnight on a 24-hour clock basis — thus, 2:41 p.m. would be 
expressed 14410000. TIME, when accessed by a COBOL program behaves 
as if i-t had been described in a COBOL program as an unsigned 
zlcrr.cntary numeric integer data item eight digits in length The 
minimum value of TIME is 00000000; the maximum value of TIME is 
23595999. 

ACCEPT . . . FROM Examples 

ACCEPT YEAR-DAY FROM DAY. 
ACCEPT CLOCK FROM TIME. 



* 
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The ACCEPT Statement (Terminal 1-0) 



■*te 



C- 



The ACCEPT statement causes low volume data to be accepted from 
the CRT terminal and transferred to the specified data item 
ACCEPT statement phrases allow the specification of position, form 
and format of the accepted data. 



FORMAT 



ACCEPT {identifier-1 CUNIT -Cidenti f i er-2>] 
<literal-l > 

CLINE -Cidentif ier-3>] C, POSITION {ident 1 f ier-4>] 
-Cliteral-2 > -Cliteral-3 > 

C/SIZE -Cidentif ier-5>] C, PROMPT Cliteral-5JD 
-Cliteral-4 > 

CECHO] Z, CONVERT] CTABD C, ERASED C , NO BEEP3 



COFFD C,-CHIGH>D [, BLINK] C, REVERSED ... 
■CLOW > 

CON EXCEPTION identifier-6 imperative-statement] 



The ACCEPT statement causes the transfer of data from the CRT 
device. This data replaces the contents of the data item named by 
identif ier-1. The receiving data item must have usage DISPLAY if 
ECHO is specified; otherwise, it may have any usage except INDEX, 

When an ACCEPT statement contains more than one operand, the 
values are transferred in the sequence in which the operands are 
encountered. ACCEPT phrases apply to the previously specified 
identifier-1 only. A subsequent identifier-1 in the same ACCEPT 
statement will be treated as if no previous phrases have been 
specified. 

An ACCEPT statement may contain no more than one ON EXCEPTION 
phrase, and if present it must be associated with the last (or 
only) identifier-1. 

Note: Features which require support of the host operating 
system and/or terminal hardware may not be supported on 
all systems. Any features which are no* supported will 
compile correctly, but will be ignored at runtime See 
the User's Guide for specific details 
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The UNIT Phrase 



The UNIT phrase must be the first phrase if used. The other 
phrases may be written. in any order. 

The value of identifier-2 or literal-1 in the UNIT phrase 
specifies the station identifier of the CRT from which the data is 
to be accepted. If irhe UNIT phrase is omitted, the CRT which 
executed the program will be accessed. 

The LINE Phrase 



The value of identifier-3 or literal-2 in the LINE phrase 
specifies the line number from which the data is to be accepted 
from the screen of the CRT terminal, with 1 being the top line If 
the value is greater than the number of lines on the CRT screen, 
it is adjusted to the maximum line number. 

If the value is iero e? the LINE phrase is not present in an 
ACCEPT statement, then data is to be accepted from the next line 
below the current position of the cursor on the CRT screen unless 
the value specified in the POSITION phrase is also zero, in which 
case the data is to be accepted from the line at the current 
position of the cursor on the CRT screen. /. 



The POSITION Phrase 

The value of identifier-4 or literal-3 in the POSITION phrase 
specifies the number of the character positions to which the 
cursor is to be positioned within the specified line prior to the 
accepting of data from the CRT terminal, with 1 being the leftmost 
character position within a line. If the value is greater than the 
maximum number of characters within a line on the CRT screen, it 
is adjusted to the maximum character number. 

If the POSITION phrase is not specified, a value of 1 is assumed 
for the first accepted operand and for each additional operand 
accepted in the same statement. If a value of is specified, the 
data is to be accepted starting at the next field on the CRT 
screen (starting character position plus size of last ACCEPT or 
DISPLAY). 



***i* 



PAGE 140 



The SIZE Phrase 

The value of identifier-5 or literal-4 in the SIZE phrase 
specifies the maximum number of characters to be accepted from the 

?I, rf ;? 2 I! cr^^ 1 " 9 the Data Division definition of the 
field. If the SIZE phrase is not present or a value of is 
specified, then the sire of i dent i f i er-1, (identifier-5, ) i s 
used. A size greater than 80 is treated as equal to SO. 

The size of the accepted field is determined by the SIZE phrase 

Inu.l"^^ ^.characters transferred from the CRT is less than or 
Ho^o ? ! X I! ° f the acce P ted field - Input is terminated by 

depression of the return key (which is not considered part of the 

im,rri' J Ik""! ?T °- characters actually input is the size of the 
source in the following: 

If the receiving item is not numeric, the accepted input is 
l^llt, ac " rdin 9 t0 th * rules of the MOVE statement for an 
alphanumeric source and destination. If the receiving item is 
described JUSTIFIED RIGHT, the clause will apply to tl\ > MOvl 

If the receiving item is numeric, the accepted input is stored 
according to the rules of the MOVE statement for a numeric 
source and destination. If the CONVERT phrase is not 
specified, the source has the same scale as the receivino 
JSISppt \ .receiving item has a trailing sign and the 
*«iT ERT Pj rase ls not specified, the input must contain digits 
.followed by a sign character. If the CONVERT phrase is 

oS e fhrrnMurDT e V he *"*-?* iS conve rted according to the rules 
of the CONVERT phrase. The CONVERT phrase is recommended when 
accepting numeric items. 

The PROMPT Phrase 



causes 
i s 



Ih! ilf! T C ? the k6y W ° rd PR0MPT in an ACCEPT statement ,*u 
to %?*„?-!%?, i SC K ePte 2 With P rom P tin S The action of prompting 1S 
whici diJ2 it I C ' aracter ! on the CRT ^reen in the positions ?rom 
which data is to be accepted. Literal-5 must be a single character 

inT^ntin 1 ^! r h f Ch S P" cifi ' s th " "H characterto b^ 

in prompting. If nteral-5 is omitted in the PROMPT phrase, then 

an underscore will be used as the fill character. 

C accent!^ **??? 1*™** *' "^ s P ecified ' th.n the data is to be 

.i ° 5r°T Pt ; n ^ th9 °^9 inal contents of the field on 
the CRT will be undisturbed before accepting input. 
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The ECHO Phrase 



The presence of the key word ECHO within an ACCEPT statement 
causes the contents of identifier-1 to be displayed on the screen 
of the CRT terminal. Conversion (see CONVERT Phrase), decimal 
alignment, and justification are performed prior to display If 
the specified size is greater than the size of the receiving 
data-item, the data-item is displayed right justified in the 
accept field with leading blanks. If the specified size is less 
than the size of the receiving data-item, the display is truncated 
on the right. When the ECHO phrase is not specified, the original 
input data remains in the accept field. 

The CONVERT Phrase 



If the receiving data-item is numeric, the presence of the key 
word CONVERT within an ACCEPT statement causes the conversion of 
an accepted field to a trai 1 ing-s igned decimal field. The 
trai 1 ing-sign decimal field is then stored in identifier-1. The 

conversion is accomplished by a 1 ef t— to— r i gh t scan and the rules: 

Set the sign according to the rightmost sign given in the 
input or positive if no sign is present. 

Set the scale according to the rightmost period given in the 
input or to zero if no period is present. If the DECIMAL POINT 
IS COMMA clause was specified in the source program, a comma 
replaces the period in determining the scale. 

Delete all nonnumeric characters from the accepted field. 

When the CONVERT phrase is not specified, or the receiving 
data-item is not numeri-c, then the data is to be stored without 
the above conversion. 



The TAB Phrase 



The presence of the key word TAB in an ACCEPT statement causes a 
wait for a tab, return or backspace key in reaching the end of the 
input field; the return will then terminate input, the backspace 
character will position the cursor back one character, the tab 
will reposition the cursor to the beginning of the field and all 
other input will be ignored. If the key word TAB is omitted, input 
will automatically be terminated if the end of the input field is 
encountered. 
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The ERASE Phrase 



The presence of the key word ERASE within an ACCEPT statement 

causes the screen of the CRT to be erased prior to cursor 

positioning. When the ERASE phrase is net specified, then the 
screen is not erased prior to cursor positioning 



The NO BEEP Phrase 



The presence of the key words NO BEEP in an ACCEPT statement 
causes supression of the beep signal upon cursor positioning. If 
the key words NO BEEP are omitted, a beep signal will occur upon 
cursor positioning prior to data input. 



The OFF Phrase 



The presence of the key word OFF within an ACCEPT statement causes 
data to be input from the terminal keyboard but not displayed to 
the screen. Blank characters are displayed to the screen in lieu 
of data characters. 



The HIGH/LOW Phrase 



The" presence of the key word HIGH or LOW causes the PROMPT 
character and the accepted data (if CONVERT and/or ECHO was 
specified) to be displayed at the specified intensity. 

When HIGH or LOW is not specified, the default display is HIGH. 



The BLINK Phrase 



The presence of the key word BLINK causes the PROMPT character, 
and any displayed data. to be BLINKed. When BLINK is not 
specified, no BLINK is provided. 



The REVERSE Phrase 



C— 



The presence of the key word REVERSE causes the PROMPT character, 
and any displayed data, to be displayed in a reverse image 
When REVERSE is not specified, normal display is provided 



mode. 
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The ON EXCEPTION Phrase 



I ecuted if%° • f X w E T° N C3USe5 the *«"P" a tive-stat.ment to be 
( in aScII ?or^tt ?? ar K Cter , iS ente ™ d - ™. invalid character 
. c, of the ijlritiv: .Vt^ *" "«tifi.r-6 prior to 
h» a I • I . imperative-statement. The invalid character m*,< 

be determined by declaring identifier-6 as USAGE COMP-V «J 
testing for its ASCII value. UbAGE COMP-1 and 



When ON EXCEPTION and CONVERT are 
error occurs, an error code of "98' 



both specified and a conversion 
is returned in identifier-6. 



ACCEPT Examples 



ACCEPT ANSWER-1, ANSWER-2. 

ACCEPT START-VALUE LINE 1, POSITION K, 
PROMPT, ECHO, CONVERT. 

ACCEPT NEXT-N POSITION 0, 
PROMPT, ECHO. 

ACCEPT YEAR, LINE YR-LN, POSITION YR-POS; 
MONTH, LINE MN-LN, POSITION MN-POS. 






<tt>- 
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The ADD Statement 



The ADD statement causes two or more numeric operands to be summed 
and the result to be stored. 



FORMAT 1 

ADD -Cidentif ier-l> C, identi f ier-23 
■Cliteral-1 > C.literal-2 ] 
TO identifier-m CROUNDED] 



CiON SIZE ERROR imperative-statement 3 

FORMAT 2 

ADD -Cidentif ier-l>» -Cidentif ier-2> C, identi fier-33 
■Cliteral-1 > -Cliteral-2 > Cliteral-3 J 
GIVING identifier-m [ROUNDED] 



CiON SIZE ERROR imperative-statement] 

FORMAT 3 

ADD {CORRESPONDING identifier-1 TO identifier-2 CROUNDEDJ 
■CCORR > 

Li ON SIZE ERROR imperative-statement 3 



In Format i. the values of the operands preceding the word TO are 

added together. then the sum is added to the current value of 
£- identifier-m storing the result immediately into identifier-m. 

In Format 2» the values of the operands preceding the word GIVING 

are added together. then the sum is stored as the new value of 
identifier-m. 

V.- 
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In Formats 1 and 2, each identifier must refer to an elementary 
numeric item. except that in Format 2 identifier-m following the 
word GIVING must refer to either an elementary numeric item or an 
elementary numeric edited item. 

In Format 3, data items in identifier-1 are added to and stored in 
the corresponding data items in identi f i er-2. 

In Format 3, each identifier must refer to a group item. 

Each literal must be a numeric literal. 

The ROUNDED Phrase 



The ADD statement may optionally include the ROUNDED phrase. 

If. after decimal point alignment* the number of places in the 
fraction of the result of the arithmetic operation is greater than 
the number of places provided for the fraction of the 
resultant-identifier/ truncation is relative to the size provided 
for the resultant-identifier. When rounding is requested) the 
absolute value of the resultant-identifier is increased by one 
(1) whenever the most significant digit of the excess is greater 
than or equal to five (5). 

When the low-order integer positions in a resultant identifier are 
represented by the character 'P ' in the picture for that 
resultant-identif ieri rounding or truncation occurs relative to 
the rightmost integer position for which storage is allocated. 

The SIZE ERROR Phrase 



If, after appropriate decimal point alignment, the absolute value 
of the result exceeds the largest value that can be contained in 
the associated resultant-identifier/ a size error condition 
exists. If the ROUNDED phrase is specified! rounding takes place 
before checking for size error. 

If the CORRESPONDING phrase is specified, and any of the 

individual additions produces a size error condition, the 

imperative-statement is not executed until all of the individual 
additions are completed. 

If the resultant-identifier has C0MPUTATI0NAL-3 usage, size error 
is correctly detected only for data items declared with an odd 
length picture clause. Therefore all C0MP-3 data items should be 
declared with an odd number of character positions. 



PAGE 146 



If the SIZE ERROR phrase is not specified and a size error 
condition exists, the value of the resultant-identifier is 
undefined. 

If the SIZE ERROR phrase is specified and a size error condition 
cists, the value of the resultant-identifier is not altered and 
the imperative statement of the SIZE ERROR phrase is executed 

The CORRESPONDING Phrase 



If the CORRESPONDING phrase is used, selected items within 
identifier-1 are ADDed to, and the result stored in, the 
corresponding items in identif ier-2. 

Data items referenced by the CORRESPONDING phrase must adhere to 
the following rules: 

A data item in identifier-1 and a data item in , identifier-2 
must not be designated by the key word FILLER and must not 
have the same data-name and the same qualifiers up to, but not 
including, identif iers-i and identifier-2. 

Both of the data items must be elementary numeric data items. 

The description of identifier-1 and identifier-2 must not 
contain level-numher 66, 77, or 88 or the USAGE IS INDEX 
c lause. 

A data item that is subordinate to identifier-1 or 
identifier-2 and contains a REDEFINES, RENAMES, OCCURS or 
USAGE IS INDEX clause is ignored, as well as those data items 
subordinate to the data item that contains the REDEFINES; 
OCCURS, or USAGE IS INDEX clause. However, identifier-1 and 
identifier-2 may have REDEFINES or OCCURS clauses or be 
subordinate to data items with REDEFINES or OCCURS clauses 

CCRR is an abbreviation for CORRESPONDING. 



I 
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ADD Examples 



ADD SALARY TO SALARY. 

(doubles the value of SALARY) 

ADD JOHNS-PAY, PAULS-PAY, ALBERTS-PAY 
GIVING COMPANY-PAY. 

ADD ACCELERATION TO VELOCITY ROUNDED 

ON SIZE ERROR GO TO SOUND-BARRIER. 

ADD CORRESPONDING ELEMENT (X) 
TO ELEMENT (Y). 

ADD CORR SUB-TOTAL-RECORD TO TOTAL-RECORD ROUNDED 
ON SIZE ERROR GO TO ERR. 
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The ALTER Statement 



The ALTER statement modifies a predetermined sequence of 
operations. 



FORMAT 

ALTER procedure-name-1 TO [PROCEED TOU procedure-name-2 

t, procedure-name-3 TO CPROCEED T03 procedure-name-43. 



Each procedure-name-1, procedure-name-3, .., i s 
paragraph that contains a single sentence consisting 
statement without the DEPENDING phrase. 



the 



name of a 
a GO TO 



Each procedure-name-2, procedure-name-4, . . . , 
paragraph or section in the Procedure Division. 



is the name of a 



Execution of the ALTER statement modifies the GO TO statement in 
the paragraph named procedure-name-1, procedure-name-3, , so 
that subsequent executions of the modified GO TO statements cause 
transfer of control to procedure-name-2, procedure-name-4, 
respectively. Modified GO TO statements in independent segments 
may, under some circumstances, be returned to their initial 
states. 



A GO TO statement 
than or equal to 
in a section with 



in a section whose segment-number is greater 
50 must not be referred to by an ALTER statement 
a different segment-number. 



PAGE 149 



The CALL Statement 



The CALL statement causes control to be transferred from one 
ihjcct program to another/ within the run unit. 

FORMAT 

CALL -Cidentif ier-l> [USING data-name-1 [, data-name-23 ... 1 
-Cliteral-1 > 



The execution of a CALL statement causes control to pass to the 
program whose name is specified by the value of literal-1 or 
identi f i er-1, the 'called' program. 

Literal-1 must be a nonnumeric literal. 

Identifier-1 must be defined as an alphanumeric data item such 
that its value can be a program name. 

The called program can be another COBOL program or an assembly 
language program. Refer to the User's Guide for specific details. 

Called programs may contain CALL statements. However* a called 
program must not contain a CALL statement that directly or 
indirectly calls the calling program. 

The CALL statement may appear anywhere within a segmented program. 
When a CALL statement appears in a section with a segment-number 
greater than or equal to 50# the EXIT PROGRAM statement returns 
control to the calling program. 

The USING Phrase 



The data-names specified by the USING phrase of the CALL statement 
indicate those data items available to a calling program that may 
be referred to in the called program. The order of appearance of 
the data-names in the USING phrase of the CALL statement and the 
USING phrase in the Procedure Division header is critical. 
Corresponding data-names refer to a single set of data which is 
available to the called and calling program. The correspondence is 
positional, not by name. In the case of index-names* no such 
correspondence is established. Index-names in the called and 
calling program always refer to separate indices. 
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The USING phrase is included in the CALL statement only if there 
is a USING phrase in the Procedure Division header of the called 
program, and the number of operands in each USING phrase must be 
ident i cal. 

Each of the operands in the USING phrase must have been defined as 
a data item in the File Section, Working-Storage Section, or 
Linkage Section, and must have a level-number of 01 or 77. 
Data-name-1, data-name-2. .... may be qualified when they 
reference data items defined in the File Section. 



CALL Examples: 



CALL "SUBPRC1". 

CALL REORDER 

USING TABLE. INDEX-1, RESULT. 



LE- 
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The CLOSE Statement (Sequential I-D) 



es. 



The CLOSE statement terminates the processing of fil 
FORMAT 

CLOSE file-name-1 C*REEL> CWITH NO REWIND]} 

<UNIT> 

CWITH -CNO REWIND> ] 

•CLOCK > 

I, file-name-2 C-CREEL> CWITH NO REWIND] 3 3 ... 

■CUNITO- 

CWITH -CNO REWIND> ] 
■CLOCK > 

The function of a CLOSE statement (with no options) is to cause 

nu?P„T Pe :f tan9 SyStem *° Cl0se the '"• For files opened for 
OUTPUT, the operating system also writes an EOF as it closes the 

If a STOP RUN statement-is executed prior to closing the file, the 
operating system will close the file without an EOF 

A CLOSE statement may only be executed for a file in an open mode. 

stat* m pnt C rfn E h Statemen * has •>**" executed for a file, no other 
statement can be executed that references that file, either 

^f^e^exe^uted^' U " leS5 " *"*■"•"'"■ «N statement " 

STATuS" C !!iir^ 0f a Ci 2 DS£ 5tatement cau5es the value of the FILE 
STATUS data-item, if any , associated with file-name-1 
(f ile-name-2, ...) to be updated. 
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c 



The REEL and UNIT Phrases 

The CLOSE REEL and CLOSE UNIT statements are documentary only and 
may be included or omitted at the user's discretion. 

The NO REWIND Phrase 



CLOSE WITH NO REWIND prevents page advancing on files assigned to 
the printer. It has no effect on other files. 

The LOCK Phrase 



The function of the CLOSE WITH LOCK statement is to perform the 
CLOSE function and set a flag to prevent the file from being 
OPENed again during execution of this program. 

CLOSE Examples 



CLOSE TRANSACTION-FILE. 
CLOSE DATA-BASE WITH LOCK. 
CLOSE PRINT-FILE WITH NO REWIND. 
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The CLOSE Statement (Relative and Indexed I/O) 



es. 



The CLOSE statement terminates the processing of fil 
FORMAT 

CLOSE file-name-1 [WITH LOCK] 

I. f ile-name-2 CWITH LOCK]] 



The function of a CLOSE statement (with no options) is to cause 
W? P Sr ra tiC B Sy5te T. t0 Cl05e the «!•• Fop f ' opened for 
?hTfIie. ^^ tlnS SyStem al5 ° Writes an E0F Prior So closing 

If a STOP RUN statement is executed prior to closino the fil. u„ 
operating System „,ill close the file without an EOF 

Ia m e f or g e a S nn^o e n C :r acce^. ^ ,t * t " Mnt n " d ™* *» ^ the 
A CLOSE statement may onl y be executed for a file in an open mode. 

If a CLOSE statement has been evamt-arf *-_ «. • , 
statement can be executed that references 11 A IV "° ^ 
explicitly or imolicitiii ,, n il~* ret * rences th *t file. either 

that file is executed *" lntervenin 9 0p EN statement for 



The execution of the CLO<=!P c+-^+- «/* = „*. 

specified FILE STATU? a Z statement causes the value of the 



The LOCK Phrase 



CLOSE funri . th ! CL ° SE WITH L0CK statement is to perform th 

?nL .! nd "* a fla9 to Prevent the file e 

OPENed during the execution of the program 



CLOSE Examples: 



CLOSE TRANSACTION-FILE. 
CLOSE DATA-BASE WITH LOCK. 
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The COMPUTE Statement 



The COMPUTE statement assigns the value of an arithmetic 
expression to a data item. 

FORMAT 



COMPUTE identifier-1 EROUNDED3 = arithmetic-expression 



C; ON SIZE ERROR imperative-statement] 



Identifier-1 must refer to either an elementary numeric 
elementary numeric edited item. 



item or an 



*te 



An arithmetic expression consisting of a single identifier or 
literal provides a method of setting the value of identifier-1 
equal to the value of the single identifier or literal. 

The COMPUTE statement allows the user to combine arithmetic 
operations without the restrictions on composite operands and/or 
receiving data items imposed by the arithmetic statements ADD, 
SUBTRACT, MULTIPLY and DIVIDE. 



Note: Exponentiation is not supported. 



The ROUNDED Phrase 



The COMPUTE statement may optionally include the ROUNDED phrase. 
Ifi after decimal point alignment, the number of places in the 
fraction of the result of an arithmetic operation is greater than 
the number of places provided for the fraction of the 
ident if ier-li truncation is relative to the size provided f r the 
identifier-1. When rounding is requested, the absolute value of 
the resultant-identifier is increased by one (1) whenever the most 
significant digit of the excess is greater than or equal to five 
(5). 



When the low-order integer 
represented by the 
identifier, rounding 



positions in an identifier-1 are 

character 'P ' in the picture for that 

. . . ., or truncation occurs relative to the 

rightmost integer position for which storage is allocated. 
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The SIZE ERROR Phrase 



If. after appropriate decimal point alignment, the absolute value 
of the result exceeds the largest value that can be contained in 
identif ier-1, a size error condition exists. If the ROUNDED phrase 
is specified, rounding takes place before checking for size error 

If identifier-1 has COMPUTATIONAL-^ usage, size error is detected 
only for data items declared u/ith an odd length picture clause. 
Therefore all COMP-3 data items should be declared with an odd 
number of character positions. 

Division by zero always causes a size error condition. 

If the SIZE EF"OR phrase is not specified and a size error 
condition exists, the value of the identifier-1 is undefined. 

If the SIZE ERROR phrase is specified and a size error condition 
exists, the value identifier-1 is not altered and the 
imperative-statement in the SIZE ERROR phrase is executed. 

COMPUTE Examples 



COMPUTE SALARY ROUNDED = WAGES * HOURS. 

COMPUTE SECONDS ■ (<<HRS * 60) + MIN) * 60) + SEC. 

COMPUTE AVERAGE = TOTAL / KOUNT 

ON SIZE ERROR MOVE TO AVERAGE. 

COMPUTE PAY (DATE) ROUNDED 

= RATE » B. - 



as 
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The DELETE Statement (Relative and Indexed 1-0) 

The DELETE statement logically removes a record from a mass 
storage file. 

FORMAT 

DELETE file-name RECORD [.INVALID KEY imperative-statement 3 



After the successful execution of a DELETE statement, the 
identified record has been logically removed from the file and can 
no longer be accessed. 

The execution of a DELETE statement does not affect the contents 
of the record area associated with file-name. 

The associated file must be opened in the 1-0 mode at the time of 
execution of this statement. 

For files in the sequential access mode, the last input-output 
statement executed for file-name prior to the execution of the 
DELETE statement must have been a successfully executed READ 
statement. The system logically removes from the file the record 
that was accessed by that READ statement. 

For a file in random or dynamic access mode, the system logically 
removes from the file that record identified by the contents of 
the key data item associated with file-name. If the file does not 
contain the record specified by the key, an INVALID KEY condition 
exists. 

The execution of the DELETE statement causes the value of the 
specified FILE STATUS data item, if any. associated with file-name 
to be updated. 

The INVALID KEY Phrase 



The INVALID KEY phrase must not be specified for a DELETE 
statement which references a file which is in sequential access 
mode. 

The INVALID KEY phrase must be specified for a DELETE statement 
which references a file which is not in sequential access mode and 
for which an applicable USE procedure is not specified. 

The current record pointer is not affected by the execution of a 
DELETE statement. 
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The DISPLAY Statement 

The DISPLAY statement causes low volume data to be displayed on 
the specified CRT terminal. DISPLAY statement phrases allow the 
specification of position, form and format of the displayed data. 

FORMAT 

DISPLAY {-Cidentif ier-l> CUNIT {identi f i er-2>l 
•Cliteral-1 > -Cliteral-2 > 
CLINE -Cidentif ier-3>D [, POSITION -C'ident i f i er-4>D 

•Cliteral-3 > -Cliteral-4 > 

[-SIZE -Cidentif ier-53-3 C, BEEP 1 E, ERASE3> 

■Cliteral-5 > 
C,-CHIGH>D C, BLINK] C, REVERSED ... 
■CLOW > 

/*• 
The DISPLAY statement causes the contents of each operand ?'. 
(identif ier-1 or literal-1) to be transferred to the CRT device in 
the order listed. The sending data item must have DISPLAY usage. 

When a DISPLAY statement contains more than one operand, the 
values of the operands are transferred in the sequence in which 
the operands are encountered. 

Note: Features which require support of the host operating 
system and/or terminal hardware may not be supported on 
all systems. Any features which are not supported will 
compile correctly, but will be ignored at runtime. See 
the User's Guide for specific details. 

The UNIT Phrase 

The UNIT phrase, if specified, must be written first. The other 
phrases may be written in any order. 

The value of identifier-2 or literal-2 in the UNIT phrase 
specifies the station identifier of the CRT upon which the data is 
to be displayed. If the UNIT phrase is omitted, the CRT which 
executed the program will be accessed. M 
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The LINE Phrase 



The value of identif ier-3 or literal-3 in the LINE phrase 
specifies the line number upon which the data is to be displayed 
on the screen of the CRT terminal/ with one being the top line. If 
the value is greater than the number of lines on the CRT screen, 
it is adjusted to the maximum line number. If the value is zero or 
the LINE phrase is not present in a DISPLAY statement/ then data 
is to be displayed on the next line below the current position of 
the cursor on the CRT screen unless the value specified in the 
POSITION phrase is also zero, in which case the data is to be 
displayed on the line at the current position of the cursor on the 
CRT screen. If incrementing to the next line generates a line 
number greater than the maximum number of lines on the CRT screen, 
the new line is displayed at the bottom. 

The POSITION Phrase 



The value of identif ier-4 or literal-4 in the POSITION phrase 
specifies the number of the character to which the cursor is to be 
positioned within the specified line prior to the displaying of 
data on the screen of the CRT terminal, with 1 being the leftmost 
character position within a line. If the value is greater than the 
maximum number of characters within a line on the CRT screen/ it 
is adjusted to the maximum character number. 

If the POSITION phrase is not specified, a value of one is assumed 
for the first displayed operand and zero for each additional 
operand displayed in the same statement. If a value of zero is 
specified, the data is to be displayed starting at the next field 
on the CRT screen (starting character position plus size of the 
last ACCEPT or DISPLAY). 



The SIZE Phrase 



The value of identifier-5 or literal-5 in the SIZE phrase 
specifies the number of characters to be displayed on the screen 
of the CRT terminal, overriding the Data Division definition of 
the field. If the SIZE phrase is not present or a value of zero is 
specified, the size of identifier-1 or literal-1 is used. If 
literal-1 is a figurative constant, the literal has a size of one. 
A size greater than 80 is treated as equal to 80. 
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If the size of the display field is less than the size of the 
sending data item, only the leftmost characters are displayed. If 
the specified size is greater than the size of the sending date 
item, the results are unpredictable. If the sending item is a 
figurative constant, the constant fills the display field. No 
conversions are made in the transfer to the display field. 

The BEEP Phrase 



The presence of the key word BEEP within a DISPLAY statement 
causes a beep signal to occur on cursor positioning prior to the 
display of the data. If the BEEP key word is omitted, no signal is 
given on cursor positioning. 

TI.e rrRASE Fhrasfi 



The presence of the key word ERASE within a DISPLAY statement 
causes the screen of the CRT terminal to be erased before the 
content of identifier-1 or literal-1 is displayed on the screen. 

Wnsn tns ERASE phrsss is not spsci*fisd» thsn ths tcrs^n is not 
erased prior to the display of the data. 

The HIGH/LOW Phrase 






The presence of HIGH or LOW causes the data to be displayed at the 
specified intensity. When HIGH or LOW is not specified/ the 



default display is HIGH 
The BLINK Phrase 



The presence of thekey word BLINK causes the displayed data to be 
BLINKed. the normal mode is no blink. 

The REVERSE Phrase 



The REVERSE key word causes the data to be displayed in REVERSE 
video. The normal mode is no reverse. 
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' DISPLAY Examples 



w 



e 



DISPLAY "FLIGHT ARRIVING AT GATE", LINE FLT-LN, 

POSITION 1, ERASE; GATE-NUMBER, HIGH, BLINK. 

DISPLAY "ENTER JOB CODE: ". 

DISPLAY CRT-HEADER LINE 1 ERASE. 

DISPLAY ZEROES SIZE 5. 

DISPLAY QUOTE. 
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The DIVIDE Statement 

The DIVIDE statement divides one numeric data item into another 
and stores the quotient. 

FORMAT 1 

DIVIDE <identif ier-l> INTO identifier-2 CROUNDED] 
{literal-1 > 
C/ON SIZE ERROR imperative-statement] 



FORMAT 2 

DIVIDE -Cidentifier-1> INTO <i denti f ier-2> 
•Cliteral-1 > -Cliteral-2 > 

GIVING identifier-3 CROUNDED3 



* 



C;ON SIZE ERROR imperative-statement 1 

FORMAT 3 

DIVIDE -Cidentif ier-l> BY -Cidentif ier-2> 
•Cliteral-1 > -Cliteral-2 > 

GIVING identifier-3 CROUNDED3 



«w' 



CiON SIZE ERROR imperative-statements 

In Format 1. the value of identifier-1 or literal-1 is divided 
into the value of identifier-2. The value of the dividend 
(identifier-2) is replaced by this quotient. 

In Format 2» the value of identifier-1 or literal-1 is divided 
into the value of identifier-2 or literal-2 and the result is 
stored in identifier — 3. 
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C-. 



*c.... 



In Format 3. the value of identif ier-1 or literal-1 is divided by 
the value of identifier-2 or literal-2 and the result is stored in 
identif iei — 3. 

Each identifier must refer to an elementary numeric itemi except 
that any identifier associated with the GIVING phrase must refer 
to either an elementary numeric item or an elementary numeric 
edited item. 

Each literal must be a numeric literal. 
The ROUNDED Phrase 



The DIVIDE statement may optionally include the ROUNDED phrase. 

If. after decimal point alignmenti the number of places in the 
fraction of the result of an arithmetic operation is greater than 
the number of places provided for the fraction of the 
resultant-identifier, truncation is relative to the size provided 
for the resultant-identifier. When rounding is requested, the 
absolute value of the resultant-identifier is increased by one 
(1) whenever the most significant digit of the excess is greater 
than or equal to five (5). 

When the low-order integer positions in a resultant identifier are 
represented by the character 'P ' in the picture for that 
resultant-identifier. rounding or truncation occurs relative to 
the rightmost integer position for which storage is allocated. 

The SIZE ERROR Phrase 



If. after appropriate decimal point alignment, the absolute value 
of the result exceeds the largest value that can be contained in 
the associated resultant-identifier, a size error condition 
exists. If the ROUNDED phrase is specified, rounding takes place 
before checking for size error. 

If the resultant-identifier has C0MPUTATI0NAL-3 usage, size error 
is detected only for data items declared with an odd length 
picture clause. Therefore all COtiP-3 data items should be declared 
with an odd number of character positions. 

Division by zero always causes a size error condition. 

If the SIZE ERROR phrase is not specified and a size error 
condition exists, the value of the resultant-identifier is 
undefined. 
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If the SIZE ERROR phrase is specified and a size error condition 
exists, the value of the resultant-identifier is not altered and 
the imperative statement in the SIZE ERROR phrase is executed. 

DIVIDE Examples 



DIVIDE 10 INTO TOTAL-WORK-LOAD 
GIVING MORRISS-WORK-LOAD 

DIVIDE TOTAL-WORK-LOAD BY 2. 5 

GIVING ALFREDS-WORK-LOAD ROUNDED 
ON SIZE ERROR GO TO ALFRED-QUIT. 

DIVIDE 2. 5 INTO TOTAL. 
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The EXIT Statement 



The EXIT statement provides a common end point for a series of 
procedures or the logical end of a called program. 

FORMAT 

EXIT [PROGRAM]. 



The EXIT statement must appear in a sentence by itself. 

The EXIT sentence must be the only sentence in the paragraph. 

An EXIT statement without the word PROGRAM servos only to enable 
the user to assign a procedure-name to a given point in a program. 
Such an EXIT statement has no other effect on the compilation or 
execution of the program. 

An execution of an EXIT PROGRAM statement in a CALLED program 

causes control to be passed to the calling program. Execution of 

an EXIT PROGRAM statement in a program which is not called behaves 

" : £. as if the statement were an EXIT statement without the word 

^^ PROGRAM. 



C- 



K 
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The GO TO Statement 



The GO TO statement causes control to be transferred from one part 
=f the Procedure Division to another. 



FORMAT 1 

GO TO procedure-name-1. 

FORMAT 2 

GO TO procedure-name-1 I, procedure-name-23 . . . 

procedure-name-n DEPENDING ON identi f ier-1. 



If a Format 1 GO TO statement appears in a consecutive sequence of 
imperative statements within a sentence, it must appear as the 
last statement in that sequence. 

When a Format 1 GO TO statement is executed! control is 
transferred to procedure-name-1 or to another procedure-name if 
the GO TO statement has been modified by an ALTER statement. 

When a paragraph is referenced by an ALTER statement, that 
paragraph can consist only of a paragraph header followed by a 
Format-1 GO TO statement. 



The DEPENDING ON Phrase 






When a Format 2 GO TO statement is executedi control is 
transferred to procedure-name-li procedure-name-2# etc. » depending 
on the value of the identifier-1 being 1/ 2» ...» n. If the value 
of the identifier-1 is anything other than the positive or 
unsigned integers 1.2, . . . , n» then no transfer occurs and 
control passes to the next statement in the normal sequence for 
execution. 

Identifier-1 is the name of a numeric integer elementary item. 



^^ rl\3'Eo & C*C5 



The IF Statement 



The IF statement causes a specified condition to be evaluated. The 
subsequent action of the object program depends on whether the 
value of the condition is true or false. 



FORMAT 

IF condition; {statement-l > -C; ELSE statement-2 > 
{NEXT SENTENCE> <; ELSE NEXT SENTENCE} 



Statements and statement-2 represent either an imperative 
statement or a conditional statement' and either may be followed 
by a conditional statement. 

When an IF statement is executed/ the following transfers of 
control occur: 

If the condition is true ( statement-1 is executed if 
specified. If statement-i contains a procedure branching or 
conditional statement* control is explicitly transferred in 
accordance with the rules of that statement. If statement-1 
does not contain a procedure branching or conditional 
statement. the ELSE phrasei if specified* is ignored and 
.control passes to the next executable sentence. 



r 



If the condition is true and the NEXT SENTENCE pnrase is 
specified instead of statement-1. the ELSE phrase. if 
specified* is ignored and control passes to the next 
executable sentence. 
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SENTENCE "" dition ** false ' statement-1 or its surrogate NEXT 
, " snored, and statement-2, if specified, is 
executed. If statement-2 contains a nrocprfn™ h™ k • 
conditional statement fftnt ' ! a procedure branching or 
accordance I control is explicitly transferred in 

<oes° rd noT co^in^ P ^ c^du^^^chinT^or 1 ' ^T"*"? 



It the condition is false, and the ELSE NEXT qrwicwrc u 

is specified, statement-1 is ignored? if !f?J?J? V r *" 

control passes to the next ...cutJbU ^t.Jc.. *"* 

Statement-1 and/or statement-2 may contain an IP ct.t *. , 
thi, case the IF statement is said to be nested s ^tement. In 

and^ELlE^cLbin^" IF 5tatements ma « *>* considered as paired IF 
preceding IF that has not been already paired uith an E '™ edlatel * 

P-cedef thf tlrminaT^^of :r: h rLnLn°:e tted " " im - di *^ 
IF Examples 



IF.CHAR-STR IS ALPHABETIC, 

MOVE CHAR-STR TO ALPHA-STRi 
ELSE IF CHAR-STR IS NUMERIC, 
MOVE CHAR-STR TO NUM; 
DISPLAY NUM; 
ELSE NEXT SENTENCE. 

IF NUM = OLD-NUM CO TO RE-SET. 

IF ALPHA-STR NOT = "TEST" 
ADD 1 TO ERROR-CNT. 

IF NUM < LIMIT, ADD 1 TO NUM. 

IF NUM IS LESS THAN LIMIT 
ADD 1 TO NUM. 

IF PRINT-SWITCH PERFORM PRINT-ROUTINE. 
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The INSPECT Statement 



The INSPECT statement provides the ability to tally (Format 1), 
replace (Format 2). or tally and replace (Format 3) occurrences of 
single characters or groups of characters in a data item. 

FORMAT 1 



INSPECT identifier-1 



TALLYING identifier-2 FOR {{ALL > <i dent if ier-3>> 

-Cliteral-1 > 

{{LEADING} > 



CHARACTERS 



C{BEFORE> INITIAL <i dentif ier-43>3 

{literal-2 > 

{AFTER > 



FORMAT 2 



INSPECT identifier-1 



REPLACING {{ALL > {identi f ier-5>> BY {ident i f ier-6> 

{literal-3 > — {literal-4 > 

{{LEADING} > 



{{FIRST > > 

{ CHARACTERS } 



C{BEFORE> INITIAL {identi fier-7>] 

{literal -5 > 

{AFTER > 



C- 
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FORMAT 3 



INSPECT identifier-1 



TALLYING ident i f ier-2 FOR <<ALL 



> -Cidentif ier-3>> 
■Cliteral-1 > 
■C<LEADING> > 



■C CHARACTERS > 

C-CBEFORE> INITIAL <i dent i f i er-4>D 

<literal-2 > 

■CAFTER > 

REPLACING {-CALL > -Cidentif ier-5>> BY <identif ier-6> 

<literal-3 > -Cliteral-4 > 

■C-CLEADING> > 



■C-CFIRST > 

■C CHARACTERS 



> 
> 



C-CBEFORE> INITIAL -Ci dent i f ier-7>3 

-Cliteral-5 > 

■CAFTER > 



Identifier-1 must reference either a group item or any category of 
elementary item, described (either implicitly or explicitly) as 
usage is DISPLAY. 

Identifier-3 . . . identifier-n must reference either an elementary 
alphabetic. alphanumeric or numeric item described (either 
implicitly or explicitly) as usage is DISPLAY and a size of one 
character. 

Each literal may be either a figurative constant (which is treated 
as a one-character data item) or a nonnumeric literal one 
character in length. 

The general rules that apply to the INSPECT statement are: 

1. Inspection (which includes the comparison cycle. the 
establishment of boundaries for the BEFORE or AFTER phrase, 
and the mechanism for tallying and/or replacing) begins at the 
leftmost character position of the data item referenced by 
identifier-1, regardless of its class, and proceeds from left 
to right to the rightmost character position as described in 
general rules 4 through 6. 
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For use in the INSPECT statement, the contents of the data 
item referenced by identif ier-1, identif ier-3, identi f ier-4, 
identifiei — 5, fdentifiei — 6 or identifier-7 will be treated as 
follows: 

a. If any of identif ier-1, identif ier-3, identif ier-4, 
identif ier-5» identi fier-6, or identifier-7 are described 
as alphanumeric, the INSPECT statement treats the contents 
of each such identifier as a character-string. 

b. If any of identif ier-1, identif ier-3, identif ier-4, 
identif ier-5, identif ier-6, or identifier-7 are described 
as alphanumeric edited, numeric edited or unsigned numeric, 
the data item is inspected as though it had been redefined 
as alphanumeric (see general rule 2a) and the INSPECT 
statement had been written to reference the redefined data 
item. 

c. If any of the identif ier-1, identif ier-3, identif ier-4, 
identif ier-S, identif ier-6, or identifier-7 are described 
as signed numeric, the data item is inspected as though it 
had been moved to an unsigned numeric data item of the same 
length and then the rules in general rule 2b had been 
applied. (See the MOVE statement. ) 

In general rules 4 through 10, all references to literal-1, 
— ' literal-2, literal-3, literal-4, and literal-5 apply equally 

to the contents of the data item referenced by identi fi er-3, 
identif ier-4, identif ier-5, identif ier-6, and identifier-7, 
respectively. 

4. During inspection of the contents of the data item referenced 
by identif ier-1, each properly matched occurrence of literal-1 
is tallied (Formats 1 and 3) and/or each properly matched 
occurrence of literal-3 is replaced by literal-4 (Formats 2 
and 3). 

5. The comparison operation to determine the occurrences of 
literal-1 to be tallied and/or occurrences of literal-3 to be 
replaced, occurs as follows: 

a. The character specified by literal-1, literal-3 is compared 
to successive characters, starting with the leftmost 
character position in the data item referenced by 
identif ier-1. Literal-1, literal-3 and that portion of the 
contents of the data item referenced by identifier-1 match 
(—- if, and only if, they are equal. 



<*■ 3. 
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b. If no match occurs in the comparison of literal-1, 
literal-3, the comparison is repeated starting with th3 
next character position of identi f ier-1 . 

c. Whenever a match occurs, tallying and/or replacing takes 
place as described in general rules 8 through 10. The 
character position in the data item referenced by 
identifier-1 immediately to the right of the character 
position that caused the match is now considered to be the 
leftmost character position of the data item referenced by 
identifier-1, and the comparison cycle starts again with 
literal-1, literal-3. 

d. The comparison operation continues until the rightmost 
character position of the data item referenced by 
identifier-1 has participated in a match or has been 
considered as the leftmost character position. When this 
occurs, inspection is terminated. 

e. If the CHARACTERS phrase is specified, an implied 
one-character operand participates in the cycle described 
in paragraphs Sa through 5d above, gscgpt that no 
comparison to the contents of the data item referenced by 
identifier-1 takes place. This implied character is 
considered always to match the leftmost character of the 
contents of the data item referenced by identifier-1 
participating in the current comparison cycle. 

6. The comparison operation defined in general rule 5 is affected 
by the BEFORE and AFTER phrases as follows: 

a. If the BEFORE and AFTER phrase is not specified, literal-1, 
literal-3 or the implied operand of the CHARACTERS phrase 
participates in the comparison operation as described in 
general rule 5. 
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If the BEFORE phrase is specified, the associated 
literal-li literal-3 or the implied operand of the 
CHARACTERS phrase participates only in those comparison 
cycles which involve that portion of the contents of the 
data item referenced by identifier-1 from its leftmost 
character position up to, but not including the first 
occurrence of literal-2, literal-5 within the contents of 
the data item referenced by identif ier-1. The position of 
this first occurrence is determined before the first cycle 
of the comparison operation described in general rule 5 is 
begun. If, on any comparison cycle, literal-1, literal-3 or 
the implied operand of the CHARACTERS phrase is not 
eligible to participate, it is considered not to match the 
contents of the data item referenced by identif ier-1. If 
there is no occurrence of literal-2, literal-5 within the 
contents of the data item referenced by identif ier-1, its 
associated literal-1, literal-3, or the implied operand of 
the CHARACTERS phrase participates in the comparison 
operation as though the BEFORE phrase had not been 
specified. 

If the AFTER phrase is specified, the associated literal-1, 
literal-3 or the implied operand of the CHARACTERS phrase 
may participate only in those comparison cycles which 
involve that portion of the contents of the data item 
referenced by identifier-1 from the character position 
immediately to the right of the rightmost character 
position of the first occurrence of literal-2, literal-5, 
within the contents of the data item referenced by 
identifier-1 and the rightmost character position of the 
data item referenced by identifier-1. The position of this 
first occurrence is determined before the first cycle of 
the comparison operation described in general rule 5 is 
begun. If, on any comparison cycle, literal-1, literal-3, 
or the implied operand of the CHARACTERS phrase is not 
eligible to participate, it is considered not to match the 
contents of the data item referenced by identifier-1. If 
there is no occurrence of literal-2, literal-5 within the 
contents of the data item referenced by identifier-1, its 
associated literal-1, literal-3, or the implied operand of 
the CHARACTERS phrase is never eligible to participate in 
the comparison operation. 



Format 1 



*•* 7. The contents of the data item referenced by identifier-2 is 

1 — k not initialized by the execution of the INSPECT statement. 
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8. The rules for tallying are as follows: 

" ^^ t re%erence d Ph b r ri d entiJier f l ed ' *"" C0 ^^ ° f the <*** 

for each occurence of "ufe^Mr ^"^J " y . ° nm (1> 

contents of the data i *- D Z\ iiteral-i matched within the 
the data item referenced by identifier-1. 

b- If the LEADING phrase is SB «r<*,«^ 

data item referenced by id'enU^^- j! . cont *"ts of the 
<D for each contiguous occurence \J ;?" B0, ? nt » d b W one 
within the contents „ , of iiteral-1 matched 

identifier-1, proWd^ th°a\ , ? Ls^ch^cT '"'^ b " 
at the point where comparison be i h , C "" 1S 
cycle in which literal-1 was elinihli *! 1 Compari5on 

* was eligible to participate. 

c If the CHARACTERS phrase is snerifioH *k 

data item referenced by den^if 1^2%* C ° ntents ° f *"• 
U) for each character matched }! ?k ceremented by one 

rule 5e, within the contents of the III ^I"" ° f 9eneral 
identifier-1. tS of the data item referenced by 

Format 2 
9. The rules for replacement are as follows: 

a. When the CHARACTERS phrase i * «=„„.*• . 

matched, in the sense of genera ru "I" n 'V* cfc "«*" **- 
of the data item referenced h„M f< I ln the contents *"*' 
literal-4. reterenced by identifier-1 is replaced by 

b. When ALL is specified, each occurrence of i,-t„ 3 , -, ^ L 
in the contents of the rt**-* ' uurre " ce of Hteral-3 matched 
is replaced by literal-J * referenced "y identifier-1 

c When LEADING is specified, earh ,-„„«.,• 

literal-3 matched In Ik contiguous occurrence of 
rpfpT>o«rL< matc V! d ln the contents of the data i +ll 
referenced by identifier-1 is m]afBH J ? ? a ltem 

provided that the leftmost occurrence " at the » ^V*^*' 
comparison began in the Pi-nll ? , the point where 
Iiteral-3 was SligiJ?. to paruJ^t?" 150 " C « cle *" ^-h 

' Iit e era^ ST ffl aJc 5 hed SPe wJt f j^' th'e* ^ItTtV Vl?*™' °* 
referenced by identifier-? ifrep ^eTbJ llLnl-f*' "- 



"* 
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Format 3 

10. A Format 3 INSPECT statement is interpreted and executed as 
though two successive INSPECT statements specifying the same 
identifier-1 had been written with one statement being a 
Format i statement with TALLYING phrases identical to those 
specified in the Format 3 statement! and the other statement 
being a Format 2 statement with REPLACING phrases identical to 
those specified in the Format 3 statement. The general rules 
given for matching and counting apply to the Format 1 
statement and the general rules given for matching and 
replacing apply to the Format 2 statement. 



o 
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INSPECT Examples: 



INSPECT word TALLYING count FOR LEADING "L" BEFORE INITIAL "A", 

Where word=LARGE# count=l 
Where word=ANALYST, count=0. 

INSPECT word TALLYING count FOR LEADING "A" BEFORE INITIAL »L». 

Where word=LARGE, count=0. 
Where word=ANALYST, count=l. 

INSPECT -ord TALLYING count FOR ALL "L" rfpi iriKm ■ «- a ^tk,^ 

"E" AFTER INITIAL "L". ' REPLACING LEADING "A" BY 

Where word=CALLAR, count=2, word=CALLER 
Where word=SALAMI, count=l, word=SALEMl" 
Where word=LATTER, count=l, word=LETTER! 

INSPECT word REPLACING ALL "A" BY "G" BEFORE INITIAL "X" 

Where word=ARXAX» word=GRXAX. 
Where word=HANDAX, word=HGNDGX. 

REp[AclNrALL T ^ Y BY G «B» Unt "* CHAR * CTERS AFTER INITIAL -J" 

Where word=ADJECTIVE, count=6, word»BDJECTIVE 
Where" word=JACK, count=3i word=JBCK 
Where word=JUJMAB, count=5, word=JUJMBB. 

INSPECT word REPLACING ALL "W" BY "Q" AFTER 

Where word=RXXBQWY, word=RXXBQQY 
Where word=YZACDWBR, uiord=YZACDWBR 
Where word=RAWRXEB, word=RAGRXEB. 

INSPECT word REPLACING CHARACTERS BY »B" BEFORE INITIAL "A". 

word before: 12 XZABCD 
word after: BBBBBABCD 
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The MOVE Statement 



The MOVE statement transfers data, in accordance with the rules of 
editing* to one or more data areas. 

FORMAT 1 

MOVE -Cidentifier-1> TO identif ier-2 E, identif ier-33. . . 
•Cliteral > 

FORMAT 2 

MOVE {CORRESPONDING identifier-1 TO identifier-2 
■CCORR > 

Identifier-1 and literal-1 represent the sending areai 
identifier-2* identif ier-3# ..., represent the receiving area(s). 

An index data item cannot appear as an operand of a MOVE 
statement. 

The data designated by literal-1 or identifier-1 is moved first to 
identif ier-2# then to identif ier-3# ... . The rules referring to 
identifier-2 also apply to the other receiving areas. Any 
subscripting or indexing associated with identifier-2, .... is 
evaluated immediately before the data is moved to the respective 
data item. 

Any subscripting or indexing associated with identifier-1 is 
evaluated only once, immediately before data is moved to the first 
of the receiving operands. The result of the statement 

MOVE a (b) TO b, c (b) 

is equivalent to: 

MOVE a <b) TO temp 
MOVE temp TO b 
MOVE temp TO c (b). 
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Any MOVE in which the sending and receiving items are both 
elementary items is an elementary move. Every elementary item 
belongs to one of the following categories: numeric, alphabetic, 
alphanumeric, numeric edited, alphanumeric edited These 
categories are described in the PICTURE clause. Numeric literals 
Deiong to the category numeric, and nonnumeric literals belong to 
the category alphanumeric. The figurative constant ZERO belongs to 
the category numeric. The figurative constant SPACE belongs to the 
category alphabetic. All other figurative constants belong to the 
category alphanumeric. 

The following rules apply to an elementary move between these 
categories: 

1. The figurative constant SPACE, a numeric edited, 
alphanumeric edited, or alphabetic data item must not be 
moved to a numeric or numeric edited data item. 

2. A numeric literal, the figurative constant ZERO, a numeric 
data item or a numeric edited data item must not be moved 
to an alphabetic data item. 

3. A non integer numeric literal or a non integer numeric data 
item must not be moved to an alphanumeric or alphanumeric 
edited data item. 

4. All other elementary moves are legal and are performed 
according to the rules given below. 

Any necessary conversion of data from one form of internal 
representation to another takes place during legal elementary 
moves, along with any editing specified for the receiving data 



item: 



When an alphanumeric edited or alphanumeric item is a 
receiving item, alignment and any necessary space-filling 
takes place as defined under Standard Alignment Rules. If 
the size of the sending item is greater than the size of 
the receiving item, the excess characters are truncated on 
the right after the receiving item is filled. If the 
sending item is described as being signed numeric, the 
operational sign will not be moved, if the operational sign 
occupies a separate character position (see the SIGN 
clause), that character will not be moved and the size of 
the sending item will be considered to be one less than its 
actual size (in terms of standard data format characters). 



^•JM* 
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2. When a numeric or numeric edited item is the receiving 
item. alignment by decimal point and any necessary 
zero-filling takes place as defined under the Standard 
Alignment Rules except where zeroes are replaced because of 
editing requirements. 

When a signed item is the receiving item, the sign of the 
sending item is placed in the receiving item. (See the SIGN 
clause). Conversion of the representation of the sign takes 
place at necessary. If the sending item is unsigned, a 
positive sign is generated for the receiving item. 

When an unsigned numeric item is the receiving item, the 
absolute value of the sending item is moved and no 
operational sign is generated for the receiving item. 

When a data item described as alphanumeric is the sending 
item, data is moved as if the sending item were described 
as an unsigned numeric integer. 

3. When a receiving field is described as alphabetic, 
justification and any necessary space-filling takes place 
as defined under the Standard Alignment Rules. If the size 
of the sending item is greater than the size of the 
receiving item, the excess characters are truncated on the 
right after the receiving item is filled. 

Any move that is not an elementary move is treated exactly as if 
it were an alphanumeric to alphanumeric elementary move, except 
that there is no conversion of data from one form of internal 
representation to another. In such a move, the receiving area will 
be filled without consideration for the individual elementary or 
group items contained within either the sending or receiving area, 
except as noted in the OCCURS clause. 

When a sending and receiving item share a part of their storage 
areas, the result of the execution of such a statement is 
undefined. 



Ci 
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The CORRESPONDING Phr 



ase 



acrordins to the follLlnj Zlll- ' **" ltemS in ««tif ier-2 

A data item in identifier-! and a data it™ <■ ■ ., ,. • „ . 

^a'liJieVJ" 1 '":*^ b » the «•«-•" ' "LLK and have^e "mf 
?de n u f n r S . 2 UP *" but "'* meludln,, iJentJf ?.,.-, * and 



At Jeast one of the data items 1. an elementary data item. 

The description of identif ier-i »«,, *a a.,,, 

-tain ,.„,-„„...,. mo. %*l? > ee Tr Xr^^?^ 

" c 1D 1NUtx clause is ignored* as susi? ae 4.§,„«» J.* • j. 
subordinate to the data .♦-« *k * I * ho " data items 
OCCURS, or USAol l N r r , " "ntains the REDEFINES, 

identifier-2 ^ h a^e REDEF J«S"ir SSSi "J"* 1 ""- 1 * nd 
subordinate *n *«<.« .-I " Ci "7 r 1 "=.=> or OCCURS clauses or be 
suoordinate to data items with REDEFINES or OCCURS clauses. 



s 
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Data in the following chart summarizes the legality of the various 
types of MOVE statements. 



r 



! CATEGORY OF 
2 SENDING 
S DATA ITEM 

! ALPHABETIC 


i CATEGORY OF RECEIVING DATA ITEM | 


(ALPHABETIC 
! YES 


J ALPHANUMERIC 
! EDITED 
{ALPHANUMERIC 

! YES 


{NUMERIC INTEGER ! 
{NUMERIC NON- INTEGER! 
{NUMERIC EDITED { 

! NO ! 


{ALPHANUMERIC 


J YES 


YES 


YES ! 


{ALPHANUMERIC EDITED 


i YES 


YES 


NO { 


! 1 INTEGER 


I NO 


YES 


YES { 


i INON- INTEGER 


S NO ; 


NO ; 


YES | 


i NUMERIC EDITED 


i no : 


YES I 


NO i 



"*&?%' 



MOVE Examples 



r 



MOVE INCOME TO TOTAL-INCOME. 

MOVE 1 TO PAGE-COUNT, LINE-NUM 

MOVE "MARMACK INDUSTRIES" TO TITLE-HEADER. 

MOVE PERSON IN FILE-RECORD TO 

PERSON OF ALABAMA (I -A OF ALABAMA), 
PERSON OF CROSS-CENSUS. 

MOVE NUM TO NUM-ED 

MOVE TABLE-ELT (N, 1, M) TO NEXT-ENTRY 
PREVIOUS-ENTRY 

MOVE -36.7 TO DEFICIT. 

MOVE QUOTES TO SECTION-DIVIDER. 

MOVE ZERO TO COUN-TER 

MOVE ZEROES TO COUN-TER. 
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The MULTIPLY Statement 



Inri .Jnrir^ State Tf nt caU5es n"m»ric data items to be multiplied 
ano stores the result. * » *y * *.*u 



FORMAT 1 

MULTIPLY -Cidentifier-1> 
•Cliteral-1 > 
BY identifier-2 CROUNDEDD 

C;ON SIZE ERROR imperative-statement] 

FORMAT 2 

MULTIPLY Cidentif ier-l> BY -Cident i f ier-2> 
•Cliteral-1 > -Cliteral-2 > 
GIVING identifier-3 [ROUNDED] 



CiON SIZE ERROR imperative-statement] 



In Format 1, the value of identifier-1 or literal-i is multiplied 
?•- t i e , Val ii e 0f l(f entifier-2. The value of the multiplier 
<identifier-2) is replaced by this product. P 

In Format 2, the value of identifier-1 or literal-1 is multiplied 
by identifier-2 or literal-2 and the result is stored in 
ldentifiei — 3. uieo in 

thaJ ^r^mlt""* ll** T S\ * , numeric •l™nt.ru item, except 
tAL In fill *}* ld ? ntlfieT * following the word GIVING must 

nuL^i^ed'Jted^iW - 1 — nt "« ™ m " ic item ■* an elementary 



Each literal must b 



e a numeric literal. 



x^i»- 



MO 

f 
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The ROUNDED Phrase 

The MULTIPLY statement may optionally include the ROUNDED phrase. 

I !\ after decimal point alignment! the number of places in the 
fraction of the result of an arithmetic operation is greater than 
the number of places provided for the fraction of the 
resultant-identifier, truncation is relative to the size provided 
for the resultant-identifier. When rounding is requested, the 
absolute value of the resultant-identifier is increased by one 
(1) whenever the most significant digit of the excess is greater 
than or equal to five (5). 

When the low-order integer positions in a resultant-identifier are 
represented by the character 'P ' in the picture for that 
resultant-identif ieri rounding or truncation occurs relative to 
the rightmost integer position for which storage is allocated. 

The SIZE ERROR Phrase 



Ifi after appropriate decimal point alignment, the absolute value 
of the result exceeds the largest value that can be contained in 
the associated resultant-identifier. a size error condition 
exists. If the ROUNDED phrase is specified, rounding takes place 
before checking for sire error. 

If the resultant-identifier has C0MPUTATI0NAL-3 usage, size error 
is detected only for data items declared with an odd length 
picture clause. Therefore all C0MP-3 data items should be declared 
with an odd number of character positions. 

If the SIZE ERROR phrase is not specified and a size error 
condition exists. the value of the resultant-identifier is 
undefined. 

If the SIZE ERROR phrase is specified and a size error condition 
exists. the value of the resultant-identifier is not altered and 
the imperative statement is the SIZE ERROR phrase is executed 

MULTIPLY Examples 



Ci MULTIPLY 10 BY INCOME. 



MULTIPLY PRINCIPAL 3Y INTEREST-RATE 
GIVING INTEREST ROUNDED. 

MULTIPLY INFLATION-RATE BY EXPENSES 

ON SIZE ERROR MOVE TO ECONOMY-RATING. 
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The OPEN Statement (Sequential I 



■0) 



The OPEN statement initiates the processing of sequential files. 
FORMAT 

OPEN <<INPUT -Cfile-name-1 CWITH NO REWIND] >. >. 

<OUTPUT {file-name-2 CWITH NO REWIND] >. > 

■CI-0 -Cf ile-name-3 >. . . , 

{EXTEND {file-name-4 > 

______ ' J - ...>.. . 



s the 
open 



assoc iated * 



The successful execution of an OPEN =+* + *«=.,.•. j x 
availabilitu n# *-h« *i, \ , tN statement determines 

mode y the fllS and result s ^ the file being in an 

Prior to the successful execution of an OPEN eta t omB ^ * 

file, no statement can be executed ^hf? st * tement *°r • given 

either explicitly or implicitly ** refe ™ nc " that file, 
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Open Mode 



Statement 


Input ! Output 


Input-Output 


Extend 


READ 


x : 


X 




WRITE 




X 




X 


REWRITE 






X 





Permissible Statements Table 



A file may be opened with the INPUT. OUTPUT, EXTEND, and 1-0 
phrases in the same program. Following the initial execution of an 
OPEN statement for a file, each subsequent OPEN statement 
execution for that same file must be preceded by the execution of 
a CLOSE statement* without the LOCK phrase, for that file. 



Execution of the 
first data record. 



OPEN statement does not obtain or release the 



The file description entry for file-name-1, file-name-3 or 
file-name-4 must be equivalent to that used when this file was 
created. 

The execution of an OPEN statement causes the value of the 
specified FILE STATUS data item, if any. associated with 
file-name-1 ... to be updated. 



The INPUT Phrase 



For files being opened with the INPUT phrase, the OPEN statement 
sets the current record pointer to the first record currently 
existing within the file. If no records exist in the file, the 
current record pointer is set such that the next executed READ 
statement for the file will result in an AT END condition. 



The OUTPUT Phrase 



C- 



Upon successful execution of an OPEN statement with the OUTPUT 
phrase specified, a file is created. At that time the associated 
file contains no data records. 
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The EXTEND Phrase 



Hi% tV^^ ^l^r^ h :\ e a °? E ? •*-* — "* positions 
file -Subsequent WRITE statement? ,..! * logical record of that 

OUTPUT phrase. 9 " xne fl le has been opened with the 

The EXTEND phrase and NO REWIND „h» 

sequential files. The EXTEND nh! * cmn be U5e " only for 

file .hose device-type is Lput P " mUSt " 0t b * -P^ified for I 

When the EXTEND phrase is «;„«.<*• . 

statement includes the following? execution of the OPEN 

The beginning file i.i.,,,, 

single reel/Cnit file "* proc ""'< °nl u in the case of a 

The I-o Phrase 



The 1-0 phrase can be used onlu «„„ 

assigned to the RANDOM d.vie.-tgp.J m3SS Stora 9 e ***** (files 

When the I-o phrase i* e « • * • , 

indicates that label records are 'p^sent ' ^J./***- REC ° RDS clau5 * 
OPEN includes the following: Present, the execution of the 

The labels are checked. 

New labels are written. 

The OPEN statement sets the CU r« B f „ 

record currently existing i^h" * If "I^^ 01 "*" *° the »«t 
file, the current record ooinllt * records exist in the 

executed READ statement fTr tJa Tfu* JJn"!. !!. eh . * hat the "»t 
condition. ** rile W1 H result in an AT END 
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The NO REWIND Phrase 

The NO REWIND phrases can only be used with sequential single 
reel/unit files. Both phrases will be ignored if they do not apply 
to the storage media on which the file resides. 

If the storage medium for the file permits rewinding, the 
following rule applies: 

When neither the EXTEND nor the NO REWIND phrase is specified, 
execution of the OPEN statement causes the file to be 
positioned at its beginning. 

When the NO REWIND phrase is specified, execution of the OPEN 
statement does not cause the file to be repositioned, the file 
must be already positioned at its beginning prior to the 
execution of the OPEN statement. 



c 



V. 
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The OPEN Statement (Relative and Indexed I-O) 



The OPEN statement initiates the processing of mass storage files. 
FORMAT 

OPEN {{INPUT {file-name-1 >...>... 
{OUTPUT {file-name-2 >...>... 
{1-0 {file-name-3 >...>...>... 

The successful execution of an npfrw =♦- = *.„ *. , ^ 
availability of the file and results in thlfft determines the 
mode. results in the file being in an open 

The successful execution <n* «•»,- nor-*. 

associated record areTaCai llh i » J *? PEN s * a * ement ^"es the 
ictoro area available to the program. 

«:. iiliiiZi:i:':i'iA:A he 0PEN statem ° nt — -•' •» — *-. 

either e.plicitlg or i«plici«5 references that file. ^ 

A file mav be opened uith th i NPUT DUT p UT , , n() ,_ n - h „.„ • 

a't^t'fo^Tfir: 11 . ^^ I"' iMtlal '"-"on 1 o/^'oPEN 
statement, without the LOCK p'orHe format f*l" CUtl ° n " ' CLD8E 

«». t .:;. , ;.c t ;:. cpEM ,t ' tmnt *•" "•* ■"■*» » «»«» the 

If label records are specified for the en. *k„ k 

are processed as follonis: e be S Innin S labels 

U5™.«»* , ^.:S r *;:. i ;.K« 1 ti"2; a:,:".^" " of the open 

the 8,.... convention: for'lnpo? labe^e^""^" """ 

ssa e ;eient ca T osls p thrrab: 1 : p t e o i b f e e :; 1 :t e e " cution ° f the open ■■ ■■ 

the S ,ste m conventions^^ ^"^^00"°^"" »"» 
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The behavior of the OPEN statement when label records are 
specified but not present/ or when label records are not 
specified but are present, is undefined. 

The file description entry for file-name-1 or f i le-name-3 must be 
equivalent to that used when this file was created. 

The execution of the OPEN statement causes the value of the 
specified FILE STATUS data item. if any, associated with 
file-name-1 ... to be updated. 

An OPEN statement must be successfully executed prior to the 
execution of any of the permissible input-output statements. In 
the Permissible Statements Table below* 'X' at an intersection 
indicates that the specified statement* used in the access mode 
given for that row# may be used with the open mode given at the 
top of the column. 



C- 
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! 



File Access 
Mode 

Sequential 



Statement 

READ 

WRITE 

REWRITE 

START 

DELETE 



Open Mode 



Inpu 
X 



Output 



Input-Outpu 
X 



X 
X 



X 
X 



Random 



READ 



WRITE 



REWR I TE 



START 



DELETE 



X 
X 



X 
X 



Dynamic 



READ 



WRITE 



REWRITE 



START 



DELETE 



X 
X 



X 
X 



Permissible Statements Table 



The INPUT Phrase 
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The OUTPUT Phrase 



Upon successful execution of an OPEN statement with the OUTPUT 
phrase specified, a file is created. At that time the associated 
file contains no data records. 



The 1-0 Phrase 



For files being opened with the 1-0 phrase, the OPEN statement 
sets the current record pointer to the first record currently 
existing within the file. If no records exist in the file. the 
current record pointer is set such that the next executed Format 1 
READ statement for the file will result in an AT END condition. 






c 
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The PERFORM Statement 

The PERFORM statement 4 « „ e .j *._ ±. 

one or .„, procedor^anoto return control <?"*"! ?»pl il:itIy t 

e.ecution or toe specie. p'rVeL"™ ITtZ, ^.l? 1 '" "• » h '— 

FORMAT 1 

!!-!-?!! P ro " d4 "-»-n«oi«-l C<THROUGH> procedure-narne-23 

{THRU > 

FORMAT 2 

-!-!--!! P^^e-name-l C<THROUGH> procedure-name-23 



{THRU > 



<identif ier-l> TIMES 
{integer > 



FORMAT 3 ** 



PERFORM procedure-name-1 C {THROUGH} 



procedure-name-23 
■CTHRU > 



UNTIL condition-1 
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>i^*- 



FORMAT 4 

PERFORM procedure-name-1 [{THROUGH} procedure-name-2] 

{THRU > 

VARYING {identifier-2> FROM {identif ier-3> 



{index-name-1} {index-name-2> 

{literal-1 > 

BY {identif ier-4> UNTIL condition-1 

{literal-2 > 

[AFTER {identifier-5> FROM {identif ier-6> 



{index-name-3> {index-name-4> 

{literal-3 > 

BY {identifier-7> UNTIL condition-2 

{literal-4 > 

[AFTER {identifier-B} FROM {identif ier-9> 



^ {index-name-5> {index-name-6> 

{literal-5 > 

BY {identifier-10> UNTIL condition-333 

{literal-6 > 

Format 1 is the basic PERFORM statement. A procedure referenced by 
this type of PERFORM statement is executed once and then control 
passes to the next executable statement following the PERFORM 
statement. 

Format 2 is the PERFORM. .. TIMES. The procedures mre performed the 
number of times specified by integer or by the initial value of 
the data item referenced by identif ier-1 for that execution. If, 
at the time of execution of a PERFORM statement, the value of the 
data item referenced by identifier-1 is equal to zero or is 
negative, control passes to the next executable statement 
following the PERFORM statement. Following the execution of the 
(-- procedures the specified number of times, control is transferred 

to the next executable statement following the PERFORM statement. 
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everg reference ♦.„ i( i.,,n.. *" wne fonowi "S discussion, 

index-name annea'rc ^ n « ii.bi,,... , , *ngex names. when 
initijiiTT-w apP f ars » n a VARYING and/or AFTER phrase, it 

Jnltiallled and SUb«»fliian+l •• - i_j , H"i.oae, 11 



During execution of the pfrfopm -4. *. 

identifier-i cannot a?cer the .S™ , m ^h V procedure" *° 

perJormeV'until Ih™"- -T IL ' Tbe »P«i'"- Procedures ore 
perrormed until the condition specified bu the untii „h„,„ < 

true. When the condition is true, contro is transferred I, \l 

next executable statement after the PERFORM statement ?e ' 

tra I er n to S proc:dure!nab,e^ ta^o. ^'T"' ^ "*"...' ^ 
the next executabT statement'? i.^&^PE,^^:"''' *° 

Format 4 i5 the PERFORM. .. VARYING. This variation of the PERFORM 

.«";?.%:• or d in e:-„::es *;: v :„ ues i' f ," n ." »«•""-«" 

execution of a REFORM semens. °J n ^X^^ ^ J ^^ = 2 4 2^ 

ibject of the VARYING, AFTER 
efers to index-names. When 

the ru!es of the SET statement" tit,." inltiali »" "cordinc, to 
described below statement. subsequent augmentation is as 

point of "it ate ecutlon 1, ,7'2L^l^' °* '<"">" fi.r-3 at the 

condition of Ue" N TIL phrase' if T.V.^lr"*' *""" " *"• 
procedure., procedure-name-1 «!!,„ ., !'' *"• "1"ence of 
once. The value of ijlnil,?.! I Procedure-name-2. is executed 
increment or decrement "a ue ,fhe vaj^of }! ^J'" 1 "" 

executable statement foUo.ino "„, PERFORM statement ° ""* 
the' , Data*S t vision re r:*Fr t %V U ' n ! ri,: • 1 ""«"t" V item described in 

Each literal represents a numeric literal. 
The words THRU and THROUGH are equivalent. 
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If an index-name is specified in the VARYING or AFTER phrase, 
then: 

The identifier in the associated FROM and BY phrases must be 
an integer data item. 

The literal in the associated FROM phrase must be a positive 
integer. 

The literal in the associated BY phrase must be a non zero 
integer. 

If an index-name is specified in the FROM phrase, then: 

The identifier in the associated VARYING or AFTER phrase must 
be an integer data item. 

The identifier in the associated BY phrase must be an integer 
data item. 

The literal in the associated BY phrase must be an integer. 

Literal in the BY phrase must not be zero. 

Condition-l» condition-2, condition-3 may be any conditional 
expression. 

When procedure-name-1 and procedure-name-2 are both specified and 
either is the name of a procedure in the declarative section of 
the program then both must be procedure-names in the same 
declarative section. 

The data items referenced by identif ier-4, identif ier-7, and 
identif ier-10 must not have a zero value. 

If an index-name is specified in the VARYING or AFTER phrase, and 
an identifier is specified in the associated FROM phrase, then the 
data item referenced by the identifier must have a positive value. 

When the PERFORM statement is executed, control is transferred to 
the first statement of the procedure named pr 3cedure-name-l. This 
transfer of control occurs only once for each execution of a 
PERFORM statement. For those cases when a transfer of control to 
the named procedure does take place, an implicit transfer of 
control to the next executable statement following the PERFORM 
statement is established as follows: 



PAGE 195 



JI P^°" dur *-"a me -l is a paragraph-name and proc edure-name-2 

i? p°oce 5 S" e :n::;-j hen the return is aft - th ° iast ■'•*—"* 

not Sr«?Jyir n ir B " 1 *J* S sect i°n-nams «n" procedure-name-2 is 
J J!!! 1 !"?! th ^ n . the ''•turn is after the last statement of 
the last paragraph m procedure-name-1. 

If procedure— name— 2 is lotri^isH anw .- *- j _ 

al x.l . ■«="■= =• *» iptcineo ana it is a DaraoraDh-namc, 

then the return is after the last statement of the paragraph 

If procedure-name-2 is specified and it is a section-name, 

J" h e "*!"" *• ***** the last statement of ?he ^ 
paragraph in the section. 

There is no necessary relationship between procedure-namp-1 3n H 
procedure-name-2 except that a consecutive s^Cence of"™ rati™ 

! nfo ° be executed beginning at the procedure named 
procedure-name-1 and ending with the execution of the procedure 
named procedure-name-2. In particular, CD TO anj PERFORM 

"u"-nai: y 2 °I^L ^^^ «"■»""»•-"■■ -1 «nd the end o" 
JIJ..U " ! If" th ' re are two or more I°9ical paths to the 

conslst?no"oi tlr^r^l^^' 2 **" b * the name ° f * Paragraph 
consisting of the EXIT statement, to which all of these paths must 

PERFDml*!^* PaS ! CS *! ? ht " P roce ""™s by means other than a 

the ^roceJ^rJo*;^ "*^ 1 WiU PaSS throUflh thfi last statement of 
the procedure to the next executable statement as if no PERFORM 
statement mentioned these procedures. UKP1 
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■ 
■ 

V 



ISet identif ier-2 equal to! 
J current FROM value ! 



I 

V 

/ N 

-> I Condition-1 J 
\ / 



True 



V False 



! Execute procedure-name-1 ! 
! THRU procedure-name-2 ! 



J 
V 



(Augment identif ier-2 with! 
I current BY value I 



-> Exit 



Flowchart for the VARYING Phrase of a PERFORM Statement Having One 
Condition. M 



o 
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In.,,*?*?** /' tt ' hen tW ° identifi ^s are varied, identifier-2 and 
identifier-5 are set to the current value of identifier-3 and 
identif ier-6, respectively. 

After the identifiers have been set, condition-1 is evaluated; if 
true, control is transferred to the next executable statement; if 
false, condition-2 is evaluated. If condition-2 is false, 
procedure-name-1 through procedure-name-2 is executed once, then 
identifer-5 is augmented by identifier-7 or literal-4 and 

auom.nt^TL 15 eVa i Uated a 9 a i n ; Th *• c«cl. of evaluation and 
augmentation continues until this condition is true When 
condition-2 is true, identifier-S is set to the value of literal-3 
or the current value of identif ier-6, identifier-2 is augmented by 
identifier-4 and condition-1 is re-evaluated. The PERFORM 
statement is completed if condition-1 is true; if not, the cycles 
continue until condition-1 is true. 

During the execution of the procedures associated with the PERFORM 
statement, any change to the VARYING variable (identifier-2 and 
lndex-name-l), the BY variable (identifier-4), the AFTER variable 
•w "I 1 ! 1 '''"? and index-name-3), or the FROM variable 
(identifier-3 and index-name-2) will be taken into consi dsrati on 
and will affect the operation of the PERFORM statement 
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i 

V False 
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'THRU procedure-name-2 I 



j 
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• current BY value ! 



True 



-> Exit 



True 



•Set identifier-5 to its! 
! current FROM value ! 



•'Augment identifier-2 with! 
! current BY value ! 



Flowchart for 
Conditions. 



the VARYING Phrase of a PERFORM Statement Having Two 
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J identif ier-8 with! 
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Flowchart for the VARYING Phrase of 
Three Conditions. 



a PERFORM Statement Having 



PAGE 200 



CL 



At the termination of the PERFORM statement identifier-5 contains 
the current value of ident i f ier-6. Identifier-2 has a value that 

H condition-l was true when the PERFORM statement was 
Identir'ier-S "" ldent ifier-2 contains the current value of 

When two identifiers are varied, identifier-5 goes throuoh a 
complete cycle (FROM, BY, UNTIL) each time id.ntifi.^2 is varied 

^InJ-T** ident i fiers the mechanism is the same as for two 

eLh ii m r S th:t BPt rf th : t * iden ^ fier - 8 9 ° eS thr °^ h a complete cycle 
l!*^lJ I I* »dtntifi.r-S is augmented by identifier-7 or 

!i««jn;.2"Il c C.rlld. tl,rn floes throu9h a complete cycle each time 

?!! e r rf th !*? mpl = tl0n ° f a Format 4 PERFORM statement, identifier-5 
1A l?!?* 1 """ 8 contain the current value of H.ntifW-6 Ind 
2s ^s^ulld I e !J eCtl r ely - Ident ifier-2 has a value that e^eed 
d n . inS b V" e ln " M,en * <"* decrement value, unless 

wh^ch ca7e Lentifi^T '"% PERF0RM st *tement i« "t.red, in 
id^nJif"^. ldentlfler " 2 ""t.ms t^ current value of 

If a 



If a sequence of statements referred to by a PERFORM stafpmonf 
includes another PERFORM statement, the sequence of p 

"c"si:i td i: ith ; h '* 1 ; c }? dtd perform must **"" •»*» sr a u i 

included in, or totally excluded from, the logical seauence 
referred to by the first PERFORM. Thus an ac PERFuRM 

InnthT! nt ',- U ' h0 " ™" Uti0n P ° int be 9 ins »*thin the range of 
another active PERFORM statement, must not allow control to pass 

tl -I* SXXt k' the ° ther aCtive PERF °™ statement; furthermore, 
two or more such active PERFORM statements may not have a common 
exit. See the valid illustrations below. common 

x PERFORM a THRU m 



d PERFORM f THRU j 
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d PERFORM f THRU j 



only one of the following: Btuxlon *s caused within that range, 



a single 



Sections and/or paragraphs wholly contained in on, 

non-independent segments. e0 ln oni 

Sections and/or paragraphs wholly contained .„ 

independent segment. contained in 

?avr F ^nin at m nt ran=e 'T"^- '" •»■"••>•«" „,„. nt can 

following: """ that Tan Se, onlg one of the 



n^ln^pen^enTseg^n?!^^ " h ' Il « " Bt -""- *" - " 

inSliHn!! f nd/0r P ara 9 ra Phs wholly contained in the 
independent segment as the PERFORM statement 



more 



same 
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The READ Statement (Sequential I/O) 



The READ statement makes available the next logical record from a 
file. 



FORMAT 

READ file-name RECORD CINTO identifier} 

ClAT END imperative-statement] 



The associated file must be open in the INPUT or 1-0 mode at the 
time this statement is executed. 

The record to be made available by the READ statement is 
determined as follows: 

If the current record pointer was positioned by the execution 
of the OPEN statement, the record pointed to by the current 
record pointer is made available. 

v^ If the current record pointer was positioned by the execution 

of a previous READ statement, the current record pointer is 
.updated to point to the next existing record in the file and 
then that record is made available. 

The execution of the READ statement causes the value of the FILE 
STATUS data item, if any, associated with file-name to be updated. 

When the logical records of a file are described with more than 
one record description the contents of any data items whirh lie 
beyond the range of the current data record are undefined at the 
completion of the execution of the READ statement. 

If, at the time of execution of a READ statement, the position of 
the current record pointer for that file is undefined, the 
execution of that READ statement is unsuccessful. 

Following the unsuccessful execution of any READ statement, the 
contents of the associated record area and the position of the 
f- current record pointer mvm undefined. 



**■*■ 
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The INTO Phrase 

If the INTO phrase is specified, the record being read is moved 
from the record area to the area specified by identifier according 
to the rules specified for the MOVE statement. The implied MOVE 
does not occur if the execution of the READ statement was 
unsuccessful. Any subscripting or indexing associated with 
identifier is evaluated after the record has been read and 
immediately before it is moved to the data item. 

When the INTO phrase is used, the record being read is available 
in both the input record area and the data area associated with 
identifier. 

The INTO phrase must not be used when the input file contains 
logical records of various sizes as indicated by thier record 
descriptions. The storage area associated with identifier and the 
record area associated with file-name must not be the same storage 
area. 



The AT END Phrase 



If, at the time of the execution of a READ statement, no next 
logical record exists in the file, the AT END condition occurs, x 
and the execution of the READ statement is considered %, 
unsuccessful. 

When the AT END condition is recognized the following actions are 
taken in the specified order. 

A value is placed into the FILE STATUS data item, if specified 
for this file, to indicate an AT END condition. 

If the AT END phrase is specified in the statement causing the 
condition, control is transferred to the AT END 
imperative-statement. Any USE procedure specified for this 
file is not executed. 

If the AT END phrase is not specified, then a USE procedure 
must be specified, either explicitly or implicitly, for this 
file and that procedure is executed. 

When the AT END condition has been recognized, a READ statement 
for that file must not be executed without first executing a 
successful CLOSE statement followed by the execution of a 
successful OPEN statement for that file. 

The AT END phrase must be specified if no applicable USE procedure 

is specified for file-name. ^ 
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The READ Statement (Relative and Indexed 1-0: 



The READ statement makes available a specified record from a mass 
storage file. 

FORMAT 1 

READ file-name CNEXTD RECORD [WITH NO LOCKD [INTO identifier: 

CiAT END imperative-statement] 

FORMAT 2 

READ file-name RECORD CWITH NO LOCK3 CINTO identifier} 

C;KEY IS data-name3 
>, C; INVALID KEY imperative-statement} 

Format 1 must be used for all files in sequential access mode. 

The NEXT phrase must be specified for files in dynamic access 
mode* when records are to be retrieved sequentially. 

Format 2 is used for files in random access mode or for files in 
dynamic access mode when records are to be retrieved randomly. 

The INVALID KEY phrase or the AT END phrase must be specified if 
no applicable USE procedure is specified for file-name. 

The associated files must be open in the INPUT or 1-0 mode at the 
time this statement is executed. 

The KEY phrase may be specified only when the organization of 
file-name is index. When the KEY clause is present, data-name must 
be the name of one of the record keys associated with file-name 
(- Data-name may be qualified. 



<~^ 
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The record to be made available by a Format 1 READ statement is 
determined as follows: 

The record/ pointed to by the current record pointer, is made 
available provided that the current record pointer was 
positioned by the START or OPEN statement and the record is 
still accessible through the path indicated by the current 
record pointer. If the record is no longer accessible, which 
may have been caused by the deletion of the record, the 
current record pointer is updated to point to the next 
existing record in the file and that record is then made 
avai lable. 

If the current record pointer was positioned by the execution 

of a previous READ statement, the current record pointer is 

t'p'.'sted to point to the next existing record in the file and 
tr.en that record is made available. 

The execution of the READ statement causes the value of the FILE 
STATUS data item, if any, associated with file-name to be updated. 

When the logical records of a file are described with more than 
one record description, these records automatically share the same 
storage area; this is equivalent to an implicit redefinition of 
the area. The contents of any data items which lie beyond the 
range of the current data record are undefined at the completion 
of the execution of the READ statement. 

If, at the time of execution of a Format 1 READ statement, the 
position of current record pointer for that file is undefined, the 
execution of that READ statement is unsuccessful. 

The INTO Phrase 



If the INTO phrase is specified, the record being read is moved 
from the record area to the area specified by identifier according 
to the rules specified for the MOVE statement. The implied MOVE 
does not occur if the execution of the READ statement was 
unsuccessful. Any subscripting or indexing associated with 
identifier is evaluated after the record has been read and 
immediately before it is moved to the data item. 

When the INTO phrase is used, the record being read is available 
in both the input record area and the data area associated with 
identi f ier. 

The INTO phrase must not be used when the input file contains 
logical records of various sizes as indicated by their record 
descriptions. The storage area associated with identifier and the 
record area associated with file-name must not be the same storage 
area. 
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Following the unsuccessful execution of any READ statement, 
contents of the associated record area and the position of the 
current record pointer are undefined. 



hor relative files if the RELATIVE KEY phrase is specified, the 
execution of a Format 1 READ statement updates the contents of the 
RELATIVE KEY data item such that it contains the relative record 
number of the record made available. 

For relative files the execution of a Format 2 READ statement sets 
the current record pointer to. and makes available, the record 
whose relative record number is contained in the data item named 
in the RELATIVE KEY phrase for the file. If the file does not 
( contain such a record* the INVALID KEY condition exists and 

execution of the READ statement is unsuccessful. 

For an indexed file being sequentially accessed, records having 
the same duplicate value in an alternate record key which is the 
key of reference are made available in the sa..ie order in which 
they are released by execution of WRITE statements, or by 
execution of REWRITE statements which create such duplicate 
values. 

For an indexed file if the KEY phrase is specified in a Format 2 
READ statement* data-name is established as the key of reference 
for this retrieval. If the dynamic access mode is specified, this 
* ke y of reference is also used for retrievals by any subsequent 
*** executions of Format 1 READ statements for the file until a 

different key of reference is established for the fi*e. 

If the KEY phrase is not specified in a Format 2 READ statement, 
the prime record key is established as the key of reference for 
this retrieval. 

If the dynamic access mode is specified, this key of reference is 

also used for retrievals by any subsequent executions of Format 1 

READ statements for the file until a different key of reference is 
established for the file. 

For indexed files the execution of a Format 2 READ statement 
causes the value of the key of reference to be compared with the 
value contained in the corresponding data item of the stored 
records in the file, until the first record having an equal value 
is found. The current record pointer is positioned to this record 
which is then made available. If no record can be so identified, 
the INVALID KEY condition exists and execution of the READ 
C . statement is unsuccessful. 
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The AT END Phrase 

If. at the time of the execution of a Format 1 READ statement, no 
next logical record exists in the file, the AT END condition 
occurs, and the execution of the READ statement is considered 
unsuc cessf ul. 

When the AT END condition is recognized, the following actions are 
taken in the specified order: 

A value is placed into the FILE STATUS data item, if specified 
for this file, to indicate an AT END condition. 

If the AT END phrase is specified in the statement causing the 
condition, control is transferred to the AT END 
imperative-statement. Any USE procedure specified for this 
file is not executed. 

If the AT END phrase is not specified, then a USE procedure 
must be specified, either explicitly or implicitly, for this 
file, and that procedure is executed. 

When the AT END condition occurs, execution of the 
input-output statement which caused the condition is 
unsuccessful. 

When the AT END condition has been recognized, a Format 1 READ 
statement for that file must not be executed without first 
executing one of the following: 

A successful CLOSE statement followed by the execution of a 
successful OPEN statement for that file. 

A successful START statement for that file. 

A successful Format 2 READ statement for that file. 

For a file for which dynamic access mode is specified, m Format 1 
READ statement with the NEXT phrase specified causes the next 
logical record to be retrieved from the file. 






PACE 208 



c 



The REWRITE Statement (Sequential I/O) 



The REWRITE statement logically replaces a record existing in a 
mass storage file. 

FORMAT 

REWRITE record-name CFROM identifer] 



Record-name and identifier must not refer to the same storage 
area. 

Record-name is the name of a logical record in the File Section of 
the Data Division and may be qualified. 

The file associated with record-name must be a mass storage file 
and must be open in the 1-0 mode at the time of execution of this 
statement. 

The last input-output statement executed for the associated file 
prior to the execution of the REWRITE statement must have been a 
successfully executed READ statement. 

The number of character positions in the record referenced by 
record-name must be equal to the number of character positions in 
the record being replaced. 

The logical record released by successful execution of the REWRITE 
statement is no longer available in the record area. 

The current record pointer is not affected by the execution of a 
REWRITE statement. 

The execution of the REWRITE statement causes the value of the 
FILE STATUS data item, if any, associated with the file to be 
updated. 
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The FROM Phrase 

The execution of a REWRITE statement with the FROM phrase is 
equivalent to the execution of: 

MOVE identifier TO record—name 

Is ll0 «n M bW J hB execution of the same REWRITE statement without 
the FROM phrase. The contents of the record area prior to the 
execution of the implicit MOVE statement have no effect on the 
execution of the REWRITE statement. 



'■*** 



PAGE 210 



The REWRITE Statement (Relative and Indexed 1-0) 



The REWRITE statement logically replaces a record existing in a 
mass storage file. 

FORMAT 

REWRITE record-name CFROM identifier! 



[j INVALID KEY imperative-statement 3 



Record-name and identifier must not refer to the same storage 
area. 

Record-name is the name of a logical record in the File Section of 
the Data Division and may be qualified. 

For relative files the INVALID KEY phrase must not be specified 
for a REWRITE statement which references a file in sequential 
access mode. 

* The INVALID KEY phrase must be specified in the REWRITE statement 
for files in the random or dynamic access mode for which an 
appropriate USE procedure is not specified. 

For indexed files the INVALID KEY phrase must be specified in the 
REWRITE statement for files for which an appropriate USE procedure 
is not specified. 

The file associated with record-name must be open in the 1-0 mode 
at the time of execution of this statement. 

For files in the sequential access mode, the last input-output 
statement executed for the associated file prior to the execution 
of the REWRITE statement must have been a successfully executed 
READ statement without the WITH NO LOCK phrase. 

The number of character positions in the record referenced by 
record-name must be equal to the number of character positions in 
the record being replaced. 

(\ The logical record released by a successful execution of the 

REWRITE statement is no longer available in the record area 
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The current record pointer is not affected by the execution of a 
REWRITE statement. 

The execution of the REWRITE statement causes the value of the 
FILE STATUS data item, if any, associated with the file to be 
updated. 

The INVALID KEY Phrase 



For a relative file accessed in either random or dynamic access 
mode, the System logically replaces the record specified by the 
contents of the key data item associated with the file. If the 
file does not contain the record specified by the key, the INVALID 
KEY condition exists. 

For indexed files the INVALID KEY condition exists when: 

The access mode is sequential and the value contained in the 
prime record key data item of the record to be replaced is not 
equal to the value of the prime record read from the field, or 

The value contained in the prime record key item does not 
equal that of any record stored in the file. 

When the INVALID KEY condition exists the updating operation does ^ 
not take place and the data in the record area is unaffected. *L 

The FROM Phrase 



The execution of a REWRITE statement with the FROM phrase is 
equivalent to the execution of: 

MOVE identifier TO record-name 

followed by the execution of the same REWRITE statement without 
the FROM phrase. The contents of the record area prior to the 
execution of the implicit MOVE statement have no effect on the 
execution of the REWRITE statement. 
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The SET Statement 



The SET statement establishes reference points for table handling 
operations by setting index-names associated with table elements. 



FORMAT 1 

SET <identif ier-l> I, identif ier-23 . 
{index-name-l> t, index-name-2] 



> TO {identif ier-3> 

— -Cindex-name-3} 

•Cintege^ — 1 > 



FORMAT 2 



SET index-name-4 C» index-name-53 



. -CUP DY > {identif ier-4> 
{DOWN BY> {integer-2 > 






All references to index-name-1. identif ier-1/ and index-name-4 
apply equally to index-name-2. identif ier-2, and index-name-5, 
respectively. 

Identifier-1 and identifier-3 must name either index data items, 
or elementary items described as an integer. 

Identifier-4 must be declared as an elementary numeric integer. 

Integer-1 and integer-2 may be signed. Integer-1 must be positive. 

Index-names are considered related to a given table and are 
defined by being specified in the INDEXED BY clause. 

If index-name-3 is specified, the value of the index before the 
execution of the SET statement must correspond to an occurrence 
number of an element in the associated table. 

If index-name-4. index-name-5 is specified, the value of the index 
both before and after the execution of the SET statement must 
correspond to an occurrence number of an element in the associated 
table. If index-name-1. index-name-2 is specified. the value of 
the index after the execution of the SET statement must correspond 
to an occurrence number of an element in the associated table. The 
value of the index associated with an index-name after the 
execution of a PERFORM statement may be undefined. 
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In Format 1, the following action occurs: 



- t h 



Index-name-1 is set to a value causing it to refer to the 
table element that corresponds in occurrence number to the 
table element referenced by index-name-3, ident i f i er-3, or 
integer-1. If identifier-3 is an index data item, or if 
mdex-name-3 is related to the same table as index-name-1, no 
conversion takes place. 

If ^ ide ^ ifier-1 is an index data item ' ** «>ay be set equal to 
either the contents of index-name-3 or identifier-3 where 
identifier-3 is also an index data item; no conversion takes 
place in either case. 



If identifier-1 is not an index data item, it may be set only 
to an occurrence number that corresponds to the value of 
index-name-3. Neither identifier-3 noi integer-1 can be used 
m this case. 



The process is repeated for index-name-2, 
if specified. Each time the value 
identifier— 3 is used as it was at 
execution of the statement. Any 
associated with identif ier-l# etc. 



identif ier-2, etc. , 

of index-name-3 or 

the beginning of the 

subscripting or indexing 

is evaluated immediately 



before the value of the respective data item is changed. 

In Format 2. the contents of index-name-4 are incremented (UP BY) 
or decremented (DOWN BY) by a value that corresponds to the number 
°! °^- urrences represented by the value of integer-2 or 
identifier^ thereafter, the process is repeated for 
index-name-5. etc. Each time the value of identifier-4 is used as 
it was at the beginning of the execution of the statement 



Data in the following chart represents the 
operand combinations in the SET statement. 



validity of various 



1 
I 


• 
• 

:i 

• 
• 


Receiving Item 




[Sending Item 


nteger Dat< 
Item 


Bi 

I 


Index 
Name 


Index Data! 
! Item 1 


•'Integer Literal 
{Integer Data Item 
■ Index-Name 
! Index Data Item 


t 
i 

• 

• 

• 

■ 


No 
No 
Valid 
No 


• 

• 
• 


Valid 
Valid 
Valid 
Valid* 1 


No ! 

No 1 
Valid* ! 
Valid* ! 



*No conversion takes place 
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The START Statement (Relative and Indexed 1-0) 



The START statement provides a basis for logical positioning 
within a file* for subsequent sequential retrieval of records. 

FORMAT 

START file-name [KEY -CIS EQUAL TO > data-name} 



•CIS = > 

<IS GREATER THAN > 



<IS > > 

■CIS NOT LESS THAN> 



•CIS NOT < > 
Li INVALID KEY imperati ve-statementJ 



Note: The required relational characters '>', '<' and '=' are 
* not underlined to avoid confusion with other symbols. 
•*-• 

File-name must be the name of a file with sequential or dynamic 
access. 

Data-name may be qualified. 

The INVALID KEY phrase must be specified if no applicable USE 
procedure is specified for file-name. 

If file-name is the name of a relative file then data-name, if 
specified, must be the data item specified in the RELATIVE KEY 
phrase of the associated file control entry. 

If file-name is the name of an indexed file then data-name, if 
specified, may reference the data items specified as the record 
keys associated with file-name or it may reference any data item 
of category alphanumeric whose leftmost character position 
corresponds to the leftmost character position of a record key 
data item. 

C - File-name must be open in the INPUT or 1-0 mode at the time that 

the START statement is executed. 

If the KEY phrase is not specified the relational operator 'IS 
EQUAL TO' is implied. 
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The type of comparison specified by the relational operator in the , 
KEY phrase occurs between a key associated with a record in the 
file referenced by file-name and a data item. 

If file-name references a relative file, the data item used in 
the comparison is the relative key associated with file-name 

If file-name references an indexed file, the data item used in 
the comparison is either the prime record key associated with 
file-name or, if the KEY phrase is specifiedi the data item 
referenced in the KEY phrase. If the operands of the 
comparison are of unequal size, comparison proceeds as though 
the longer one were truncated on the right such that its 
length is equal to that of the shorter. All other nonnumeric 
comparison rules apply except that the presence of the PROGRAM 
COLLATING SEQUENCE clause will have no effect on the 
compar i son. 

The current record pointer is positioned to the first logical 
record currently existing in the file whose key satisfies the 
comparison. 

If the comparison is not satisfied by any record in the file, 
an INVALID KEY condition exists, the execution of the START 
statement is unsuccessful, and the position of the current 
record pointer is undefined. 

The execution of the START statement causes the value of the FILE *&«: 
STATUS data item, if any. associated with file-name to be updated. 
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The STOP Statement 



The STOP statement causes a. permanent or temporary suspension of 
the execution of the object program. 

FORMAT 

STOP <RUN > 
{literal} 

The literal may be numeric or nonnumeric or may be any figurative 
constant. 

If a STOP RUN statement appears in a consecutive sequence of 
imperative statements within a sentence, it must appear as the 
last statement in that sequence. 

If the RUN phrase is used, then a STOP RUN message is logged and 
the execution is terminated. 

If STOP literal is specified. the literal is logged in a STOP 
"m "literal-value" message and the execution is suspended. 

«*' 

STOP Examples: 



£L 



STOP RUN. 

STOP "END OF PROCEDURE". 
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The SUBTRACT Statement 



The SUBTRACT statement is used to subtract one, or the sum of two 
or more, numeric data items from a numeric data item and store the 
result. 

FORMAT 1 

SUBTRACT -Cidentif ier-l> [, identif ier-2] 
•Cliteral-1 > [,literal-2 3 
FROM identifier-m [ROUNDED] 

CiOlM SIZE ERROR imperative-statement 3 

FORMAT 2 

SUBTRACT -Cidentif ier-l> [, identif i er-2] 

■Cliteral-1 > [,literal-2 ] ** 

FROM -Cidentifier-m> GIVING identifier-n [ROUNDED] 

■Cliteral-m > 
t;ON SIZE ERROR imperative-statement] 

FORMAT 3 

SUBTRACT {CORRESPONDING} identif ier-1 
■CCORR > 

FROM identif ier-2 [ROUNDED] 

C; ON SIZE ERROR imperative-statement] 



In Format 1, all literals or identifiers preceding the word FROM 
are added together and this total is subtracted from the current 
value of identifier-m storing the result immediately into 
identif ier-m. * 
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In Format 2, all literals or identifiers preceding the word FROM 
are added together* the sum is subtracted from literal-m or 
identifier-m and the result of the subtraction is stored as the 
new value of identif ier-n. 

If Format 3 is used, data items in identifier-1 are subtracted 
from and stored into corresponding data items in identifiei — 2. 

Each identifier must refer to a numeric elementary item except 
that: 

In Format 2. the identifier following the word GIVING must 
refer to either an elementary numeric item or an elementary 
numeric edited item. 

In Format 3. the identifiers must refer to group items. 
Each literal must be a numeric literal. 

The ROUNDED Phrase 



The SUBTRACT statement may optionally include the ROUNDED phrase. 

^ If, after decimal point alignment* the number of places in the 

** fraction of the result of an arithmetic operation is greater than 
•*■"' the number of places provided for the fraction of the 
resultant-identifier* truncation is relative to the size provided 
for the resultant-identifier. When rounding is requested, the 
absolute value of the resultant-identifier is increased by one (1) 
whenever the most significant digit of the excess is greater than 
or equal to five <S>. 

When the low-order integer positions in a resultant-identifier are 
represented by the character '?' in the picture for that 
resultant-identifier, rounding or truncation occurs relative to 
the rightmost integer position for which storage is allocated. 

The SIZE ERROR Phrase 



If, after appropriate decimal point alignment, the absolute value 
of the result exceeds the largest value that can be contained in 
the associated resultant-identifier, a size error condition 

r exists. If the ROUNDED phrase is specified, rounding takes place 

^— * before checking for size error. 
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If the resultant-identifier has C0MPUTATI0NAL-3 usage, size error 
is detected only for data items declared with an odd length 
picture clause. Therefore, all COMP-3 data items should be 
declared with an odd number of character positions. 

If the SIZE ERROR phrase is not specified and a size error 
condition exists, the value of the resultant—identifier is 
undefined. 

If the SIZE ERROR phrase is specified and a size error condition 
exists, the value of the resul tant-i dentif ier < s ) affected by the 
size error is not altered. 

If the CORRESPONDING phrase is specified, and any of the 
individual subtractions produce a size error condition, the 
imperative-statement is not executed until all of the individual 
subtractions are completed. 

The CORRESPONDING Phrase 



/*•• 



If the CORRESPONDING phrase is used, selected items within 
identifier-1 are SUBTRACTed from, and the result stored in, the 
corresponding items in identif ier-2. Data items referenced by the 
CORRESPONDING phrase must adhere to the following rules: 

A data item in identifier-1 and a data item in identifier-2 < 
must not be designated by the key word FILLER and must not 
have the same data-name and the same qualifiers up to, but not 
including, identifier-1 and identifier-2. 

Both of the data items must be elementary numeric data items. 

The description of identifier-1 and identifier-2 must not 
contain level-numbers 66, 77 or B8 or the USAGE IS INDEX 
c lause. 

A data item that is subordinate to identifier-1 or 
identifier-2 and contains a REDEFINES, RENAMES, OCCURS or 
USAGE IS INDEX clause is ignored, as well as those data items 
subordinate to the data item that contains the REDEFINES, 
OCCURS, or USAGE IS INDEX clause. However, identifier-1 and 
identifier-2 may have REDEFINES or OCCURS clauses or be 
subordinate to data items with REDEFINES or OCCURS clauses. 

CORR is an abbreviation for CORRESPONDING. 



PAGE 220 



SUBTRACT EXAMPLES 

SUBTRACT TAXES FROM INCOME. 

SUBTRACT 1 FROM TALLY GIVING TALLY-1. 

SUBTRACT 2. 69, INTEREST, PENALTY 
FROM PRINCIPAL ROUNDED 
ON SIZE ERROR GO TO ERROR-HANDLER. 



o. 
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The UNLOCK Statement 



The UNLOCK statement makes available to other programs the most 
recently accessed record in a file that was read and locked. 



FORMAT 

UNLOCK file-name RECORD. 



Note: The UNLOCK statement is nonstandardi but provides for 
compatibility with existing programs written for 
environments that allow multiple programs to concurrently 
update a data file. For systems that do not provide this 
capability. the UNLOCK statement will not affect execution 
except as described below. 



The file associated 

mod e. 



with the file-name must be open in the 1-0 



If no record in the file is locked. execution of an UNLOCK 
statement causes no action to be taken. If a record in the file is 
locked (unavailable to other programs). the last record to be 
locked is then made available to any other program upon execution 
of the UNLOCK statement. 

The current record pointer is not affected by the execution of the 
UNLOCK- statement. The FILE STATUS data item associated with the 
file, if one exists, is updated. 

The UNLOCK statement may not be used to unlock records locked by 
other programs. 

Note: Records that are read and locked are automatically unlocked 
by any subsequent operation on that file from the same 
program. 
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The WRITE Statement (Sequential I/O) 



The WRITE statement releases a logical record for an output file 
It can also be used for vertical positioning of lines within a 
logical page. 

FORMAT 

WRITE record-name [FROM identif ier-lD 

C<BEFORE> ADVANCING {-Cidentif ier-2> CLINE 3>3 
{AFTER > {{integer > CLINES3> 

{ PAGE > 

Record-name and identifier-1 must not reference the same storage 
area. 

The record-name is the name of a logical record in the File 
* Section of the Data Division and may be qualified. 

When identifier-2 is used in the ADVANCING phrase, it must be the 
name of an elementary integer data item. 

Integer or the value of the data item referenced by identifier-2 
may be zero. 

The associated file must be open in the OUTPUT or EXTEND mode at 
the time of the execution of this statement. 

The logical record released by the execution of the WRITE 
statement is no longer available in the record area. 

Upon completion of a WRITE statement, the information in the area 

referenced by identifier-1 is available even though the 

information in the area referenced by record-name may not be 
available. 

The current record pointer is unaffected by the execution of a 
f WRITE statement. 

The execution of the WRITE statement causes the value of the FILE 
STATUS data item, if any, associated with the file to be updated. 

The maximum record size for a file is established at the time the 
%l-- file is created and must not subsequently be changed. 
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The number of character positions on a mass storage device 
required to store a logical record in a file may or may not be 
equal to the number of character positions defined by the logical 
description of that record in the program. 

The execution of the WRITE statement releases a logical record to 
the operating system. The contents of the record area stb not 
changed. 

When an attempt is made to write beyond the externally defined 
boundaries of a sequential file, an exception condition exists. 
The following action takes place: 

The value of the FILE STATUS data item, if any, of the 
associated file is set to a value indicating a boundary 
violation. 

If a USE AFTER STANDARD EXCEPTION declarative is explicitly or 
implicitly specified for the file, that declarative procedure 
will then be executed. 

If a USE ^p"T^^ STANDARD EXCEPTION declarative is not 
explicitly or implicitly specified for the file, the result is 
undefined. 



The FROM Phrase 



The results of the execution of the WRITE statement with the FROM 
phrase is equivalent to the execution of the statement 

MOVE identifier-1 TO record-name 

according to the rules specified for the MOVE statement. followed 
by the same WRITE statement without the FROM phrase. 

The contents of the record area prior to the execution of the 
implicit MOVE statement have no effect on the execution of this 
WRITE statement. 



to 
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The ADVANCING Phrase 



The ADVANCING phrase allows control of the vertical positioning of 

each line on a representation of a printed page. If the ADVANCING 

phrase is not usedi automatic advancing mill be 

compiler to act as if the user had specified 

LINE. If the ADVANCING phrase is used, advancing 

follows: 



provided by the 

AFTER ADVANCING 1 

is provided as 



« 



If identifier-2 is specified. the representation of the 
printed page is advanced the number of lines equal to the 
current value associated with identifier-2. 

If integer is specified. the representation of the printed 
page is advanced the number of lines equal to the value of 
integer. 

If the BEFORE phrase is used, the line is presented before the 
representation of the printed page is advanced. 

If the AFTER phrase is used, the line is presented after the 
representation of the printed page is advanced. 

If PAGE is specified, the record is presented on the logical 
page before or after (depending on the phrase used) the device 
is repositioned to the next logical page. 

The ADVANCING phrase is valid only if the device-type assigned to 
the file is PRINT. 



c 
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THE WRITE STATEMENT (Relative and Inde.ed I-o> 



i";.t-out P :t a f u: nt releases a iosicai record f " «> •«■*»-* « 

FORMAT 

WRITE record-name [FROM identifier} 

C; INVALID KEY imperative-statement 1 
Record-name and identifier must not reference the same storage 

•sS^Jn^r^V! *!!" ^^ ° f a l09ical Tecord *" t^ File 
Section of the Data Division and may be qualified. 

Droceaur^!* n«f '**.?*< ?"** *' ■?"*«••» " ■" applicable USE 
procedure is not specified for the associated file. 

Ii m /If°Jhf ted fi i 6 mUSt be ° pen in the 0UTPUT °r 1-0 mode at the ' 
time of the execution of this statement. ** 

It!t.i!Ji CaI r *" rd ^e^ased by the execution of the WRITE 
statement is no longer available in the record area. 

WRITE^^nt ^ """^ *' Unaffected b « *•»• •"" ution of a 

BTATuS'SIJit 4 "!! ° f *** WRITE Btatement "uses the value of the FILE 
STATUS data item, if any, associated with the file to be updated. 

The maximum record size for a file is established at the time the 
rue is created and must not subsequently be changed. 

IH!.,,;!»!; b ! r ! f cha :* cter Positions on a mass storage device 
Hum if L* t0r \* l0 » lcal record in a file may or may not be 
equal to the number of character positions defined by the Jogical 
description of that record in the program. * 

in ."£:**{„•; :;.:.:. WRITE ttatsment rel "- s * i ««"« i '«"- *• 
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When a relative file is opened in the output mode/ records may be 
placed into the file by one of the following: 

If the access mode is sequential, the WRITE statement will 
cause a record to be released to the System. The first record 
will have a relative record number of one (1) and subsequent 
records released will have relative record numbers of 2, 3, 4, 
.If the RELATIVE KEY data item has been specified in the 
file control entry for the associated filei the relative 
record number of the record just released will be placed into 
the RELATIVE KEY data item by the System during execution of 
the WRITE statement. 

If the access mode is random or dynamic. prior to the 
execution of the WRITE statement the value of the RELATIVE KEY 
data item must be initialized in the program with the relative 
record number to be associated with the record in the record 
area. That record is then released to the System by execution 
of the WRITE statement. 

When a relative file is opened in the 1-0 mode and the access mode 
is random or dynamic, records are to be inserted in the associated 
file. The value of the RELATIVE KEY data item must be initialized 
by the program with the relative record number to be associated 
with the record . in the record area. Execution of a WRITE 
statement then causes the contents of the record area to be 
released to the System. 

For an indexed file, the data item specified as the prime record 
key must be set by the program to the desired value prior to the 
execution of the WRITE statement. Records may be placed into the 
file by one of the following: 

If the access mode is sequential, records must be released to 
the System in ascending order of prime record key values. 

If the access mode is random "or dynamic, records may be 
released to the System in any program-specified order. 

The FROM Phrase 



The results of the execution of the WRITE statement with the FROM 
phrase is equivalent to the execution of the statement: 

MOVE identifier-1 TO record-name 

according to the rules specified for the MOVE statement, followed 
by the same WRITE statement without the FROM phrase. 
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The contents of the record area prior to the execution of the 
implicit MOVE statement have no effect on the execution of this 
WRITE statement. 

The INVALID KEY Phrase 



The INVALID KEY condition exists under the following 
circumstances: 

When the access mode is sequential for an indexed file opened 
in the output mode, and the value of the prime record key is 
not greater than the value of the prime record key of the 
previous record, or 

When an indexed file is opened in the output or 1-0 mode, and 
the value of the prime record key is equal to the value of a 
prime record key of a record already existing in the file, or 

When a relative file has random or dynamic access mode and the 
RELATIVE KEY data item specifies a record which already exists 
in the file, or 

When an attempt is made to write beyond the externally defined 
boundaries of the file. 

When the INVALID KEY condition is recognized the execution of the 
WRITE statement is unsuccessful, the contents of the record area 
are unaffected and the FILE STATUS data item, if any. associated 
with file-name of the associated file is set to a value indicating 
the cause of the condition. 
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APPENDIX A 
ERROR MESSAGES 
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ERROR MESSAGES (Compile Time) 



The text of the source program is checked for syntax and semantic 
errors as it is scanned. Errors may cause interruption in 
scanning. In this case, text is ignored until a recovery point is 
found and a resume message is printed. Recovery points are chosen 
to minimize the amount of unanalyzed text without producing 
irrelevant error messages. In any case the constructs at fault are 
undermarked and error messages listed when the source line is 
printed. The error message includes either E's or W's indicating 
error or warning. For example: 

004030 02 STOCK PIC 9<16)PPP COMPUTATIONAL. 

$ 
»*#*♦ DPICTURE *E*E«E*E*E*E*E«E*E#E*E«E*E*E*E*E*E«E*E 

indicates a semantic number size error but 

005040 02 PART PIC X(4BX(5) SYNC. 

***♦» 1) SYNTAX «E»E*E«E*E*E«E*E*E*E»E»E»E*E»E*E«E*E#E«E 
***** 2) SCAN RESUME *W#W*W»W#W*W*W*W«W*W*W»W*W»W*W«W»W 

indicates a syntax error at the first undermark and a recovery to t 
the second undermark. 

The number preceding the error message is the undermark number, 
counting from left to right. More than one message may refer to 
the same undermark. 

Global errors such as undefined paragraph names and illegal 
control transfers are listed with the program summary at the end 
of the source listing. 

Compilation always proceeds to the end of the program, regardless 
of the number of errors found. Object code is produced such that 
an attempt to execute an erroneous statement will terminate 
execution with an appropriate error message. 
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COMPILER ERROR MESSAGES 



ACCESS CLASH 

Nonsequential access given for sequential file. 

BLANK WHEN ZERO 

BLANK WHEN ZERO clause given for nonnumeric or group 
item. 

CLASS 

The referenced identifier is not valid in a class 
condition. 

COPY 

COPY statement failed because of permanent error 
associated with the undermarked file-name. 

CORRESPONDING 

The CORRESPONDING phrase cannot be used with the 
referenced identifier. 

DATA OVERFLOW 

The data area (working-storage and literals) is larger 
than 65535 bytes in length. 

DATA TYPE 

Context does not allow data type of the referenced 
identifier. 

DEVICE CLASH 

Random characteristics given to nonrandom device. 

DEVICE TYPE 

OPEN or CLOSE mode inconsistent with device type. 

DOUBLE DECLARATION 

Multiple declaration of a file or identifier attribute 

DOUBLE DEFINITION 

Multiple definition of an identifier. 

DUPLICATE 

Warning only. Multiple USE procedure declared for same 
function or file. 

C- FILE DECL ERROR 

The referenced file-name is SELECTed and has an invalid 
or missing file description (FD). 



*«- 
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FILE NAME ERROR 

The referenced file-name has an invalid external file 
name declaration. 

FILE NAME REQUIRED 

File name not given as reference in I/O verb. 

FILE RECORD KEY ERROR 

The referenced file-name has a RECORD KEY which is 
incorrectly qualified or is not defined as a data item 
of the category alphanumeric within a record description 
entry associated with that file name. 

FILE RECORD SIZE ERROR 

The referenced file-name has a declared record size 
which conflicts with the actual data record descriptions 
or is a relative organization file with variable length 
records. * 

FILE RELATIVE KEY ERROR 

The referenced file-name has a RELATIVE KEY which is 

•»•■%» 1-f I S ^ %b %f Ji %M 52 %& S a. X s «» S ^ a § O @ ^ ^ IT'S @ 4*1 ■ S^i Sit '»** ^ f** ***» "&* **3 

description associated with that file-name, or is not 
defined as an unsigned integer. 

FILE STATUS ERROR 

The referenced file-name has a status item which is ' 
incorrectly qualified, is not defined in the *S. 
WORKING-STORAGE SECTION, or is not a two-character 
alphanumeric item. 

FILE TYPE 

Access or organization of file conflicts with 
undermarked statement. 

FILLER LEVEL 

A nonelementary FILLER item is declared. 

GROUP CLASH 

USAGE or VALUE clause of group member conflicts with 
tame clause for group. 

GROUP VALUE CLASH 

Warning only. An item subordinate to a group with the 
V „ A .b¥L™ clause is described with the SYNCHRONIZED, 
JUSTIFIED, or USAGE (other than USAGE IS DISPLAY) 
clause. 

IDENTIFIER 

Identifier reference is incorrectly constructed or the 
identifier has an invalid or double definition. 
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ILLEGAL ALTER 

An ALTER statement references an unalterable paragraph 
or violates the rules of segmentation. 

ILLEGAL PERFORM 

A PERFORM statement references undefined or incorrectly 
qualified paragraph or the reference violates the rules 
of segmentation. 



INVALID ID 



The referenced identifier was not successfully defined. 



INVALID PARAGRAPH 

Context does not allow section name. 



JUSTIFY 



JUSTIFY clause given in conflict with other attributes. 



KEY REQUIRED 

Relative key not declared for random access relative 
file or record key not declared for indexed file. 



LABEL 



Presence or absence of label record conflicts with 
device standards. 



c* 



LEVEL 



LINKAGE 



Level-number given is invalid either intrinsically or 
because of position within a group. 



An identifier in the USING clause of the PROCEDURE title 
is not a linkage item or a statement references a 
linkage item not subordinate to an identifier in the 
USING clause of the PROCEDURE title. 

LITERAL VALUE 

Literal value given is incorrect in context. 



MOVE 



Operands of MOVE verb specify an invalid move. 



MUST BE INTEGER 

Context requires decimal integer. 

MUST BE PROCEDURE 

Context requires procedure name either as reference or 
definition, or the reference must be a nondeclarative 
procedure-name. 

MUST BE SECTION 

Context requires procedure-name to be section 
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NESTING 

Illegal nesting of condition that is not an IF 
condition. 

NOT IN REDEFINE 

VALUE IS clause given in REDEFINES item. 

OCCURS 

Occurs clause given at invalid level or after three have 
been given for the same item. 

OCCURS DEPENDING ERROR 

The referenced object of a DEPENDING phrase has not been 
defined correctly. 

OCCURS-VALUE CLASH 

VALUE IS and OCCURS in effect for the same item. 

PICTURE 

Invalid picture syntax. 

PICTURE-BWZ CLASH 

Zero suppression and BLANK WHEN ZERO cannot be in effect 
for the same item. 

PICTURE-USAGE CLASH 

USAGE clause or implied usage conflicts with usage 
implied by picture. 

PROCEDURE INDEPENDENCE 

PERFORM given for procedures in independent segments not 
in the current segment. 

PROGRAM OVERFLOW 

The instruction arsa is larger than 32767 bytes in 
length. 

RECORD KEY 

Record key declared for other than an indexed 
organization file or a START statement KEY phrase 
references a data item not aligned on the declared key's 
leftmost byte. 

RECORD REQUIRED 

Context requires record name. 

REDEFINES 

REDEFINES given within an OCCURS or not redefining the 
last allocated item. 



'<*!*> 
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REDEFINES ERROR 

The referenced data-name redefines an item which does 
*""' not have the same number of character positions and is 

not level 01. 

REFERENCE INVALID 
, Reference given is not valid in context. 

RELATION 

Operands of relation test are incompatible. 

RELATIVE KEY 

Relative key declared for other than a relative 
organization file or a START statement KEY phrase 
references a data item other than the declared key. 

RESERVED WORD CONFLICT 

A COBOL reserved word or symbol is given where a user 
word is required. In the summary this is only a warning 
about an ANSI COBOL reserved word that is not an 
implemented COBOL reserved word. 

SCAN RESUME 

Warning only. Scanning was terminated at previous error 
message and resumes at undermarked character. 

'& SECTION CLASH 

~s A VALUE IS clause appears in the FILE or LINKAGE 

section. 

SEGMENT 

Warning only. Segment number given in an independent 
segment is not the same as the current segment or the 
number of a new independent segment. 

SEPARATOR 

Warning only. Redundant punctuation or a separator is 
not followed by the required space. 

SIGN 

SIGN clause given in conflict with usage and picture. 

SIZE 

Warning only. Size of data referenced not correct for 
context. 

SIZE ERROR 

*-— Declared size of record conflicts with present 

reference. 
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SUBSCRIPT 



Incorrect number of subscripts or indices for a 
reference. 



i 



SYNC 

Synchronized clause given for a group item. 

SYNTAX 

Incorrect character or reserved word given for context 

UNDEFINED 

File referenced in FD entry was not defined. 

UNDEFINED DECLARATIVE PROCEDURE 

A declarative statement references a procedure not 
defined within the DECLARATIVES. 

UNDEFINED PROCEDURE 

A GO TO statement references an undefined or incorrectly 
qualified paragraph. 

USE REQUIRED 

A DECLARATIVES section must begin with a USE statement. 

USING COUNT 

Warning only. The item count in the USING list of a CALL 
statement is different from that of the first reference * 
to the same program name. * 

VALUE ERROR 

Value given in VALUE IS required truncation of nonzero 
digits. 



VALUE 



VALUE IS clause given in conflict with other declared 
attributes. 



VARIABLE nECORD 



Warning only. The INTO phrase is not allowed with 
variable size records. 



t 
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RESERVED WORD LIST 



The following is a list of RM/COBOL reserved words where: 



* denotes reserved words not reserved in ANSI standard COBOL 

+ denotes ANSI COBOL reserved words not reserved by the 
compiler. Their appearance will generate a warning at the end 
of the compilation listing. 

** denotes system-name. 



ACCEPT 

ACCESS 

ADD 

ADVANCING 

AFTER 

ALL 



ALPHABETIC 
+ALSO 
ALTER 
ALTERNATE 
AND 
ARE 



AREA 
+AREAS 
♦ASCENDING 

ASSIGN 

AT 

AUTHOR 



♦BEEP 
BEFORE 
BLANK 



*BLINK 
BLOCK 
♦BOTTOM 



BY 






CALL 
+CANCEL 
♦CD 
+CF 
+CH 

CHARACTER 

CHARACTERS 
♦CLOCK-UNITS 

CLOSE 
♦COBOL 
+CODE 



+CODE-SET 

COLLATING 
+COLUMN 

COMMA 
♦COMMUNICATION 

COMP 
♦COMP-1 
♦COMP-3 

COMPUTATIONAL 
♦COMPUTATIONAL-1 
♦C0MPUTATI0NAL-3 



COMPUTE 

CONFIGURATION 

CONTAINS 
+CONTROL 
♦CONTROLS 
♦CONVERT 

COPY 

CORR 

CORRESPONDING 
♦COUNT 

CURRENCY 



DATA 

DATE 
♦DATE-COMPILED 

DATE-WRITTEN 

DAY 
+DE 

+DEBUG-CONTENTS 
♦DEBUG-ITEM 
+DEBUG-LINE 
+DEBUG-NAME 



+DEBUG-SUB-1 
+DEBUG-SUB-2 
+DEBUG-SUB-3 
♦DEBUGGING 

DECIMAL-POINT 

DECLARATIVES 

DELETE 
♦DELIMITED 
♦DELIMITER 

DEPENDING 



♦DESCENDING 
♦DESTINATION 
♦DETAIL 
♦DISABLE 

DISPLAY 

DIVIDE 

DIVISION 

DOWN 

DUPLICATES 

DYNAMIC 
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♦ECHO 
♦EG I 

ELSE 
♦EMI 
+ENABLE 

END 


+END-OF-PAGE 
♦ENTER 

ENVIRONMENT 
+EOP 

EQUAL 
♦ERASE 


ERROR 
♦ESI 
+EVERY 

EXCEPTION 

EXIT 

EXTEND 


FD 

FILE 

FILE-CONTROL 


FILLER 
♦FINAL 
FIRST 


+FOOTING 
FOR 
FROM 


♦GENERATE 
GIVING 


GO 
GREATER 


+GROUP 


+HEADINO 
♦HIGH 


HIGH-VALUE 
HIGH-VALUES 




1-0 

I-0-CONTROL 

IDENTIFICATION 

IF 

IN 

INDEX 


INDEXED 
+ INDICATE 

INITIAL 
♦INITIATE 

INPUT 

INPUT-OUTPUT 


INSPECT 

INSTALLATION 

INTO 

INVALID 

IS 


JUST 


JUSTIFIED 





KEY 






LABEL 
+LAST 

LEADING 

LEFT 
+LENGTH 

LESS 


♦LIMIT 
♦LIMITS 
♦LINAGE 
♦LINAGE-COUNTER 

LINE 
♦LINE-COUNTER 


LINES 

LINKAGE 

LOCK 

LOW 

LOW-VALUE 

LOW-VALUES 


MEMORY 
+MERGE 
♦MESSAGE 


MODE 

MODULES 

MOVE 


♦MULTIPLE 
MULTIPLY 


NATIVE 
♦NEGATIVE 
NEXT 


NO 
NOT 
♦NUMBER 


NUMER I C 
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OBJECT-COMPUTER 


OMITTED 


OR 


OCCURS 


ON 


ORGANIZATION 


OF 


OPEN 


OUTPUT 


OFF 


♦OPTIONAL 


♦OVERFLOW 


y* jWWb^ 


4-PLUS 


♦PROCEDURES 


♦PAGE-COUNTER 


+POINTER 


PROCEED 


PERFORM 


POSITION 


PROGRAM 


+PF 


+POSITIVE 


PROGRAM-ID 


+PH 


♦PRINT 


♦PROMPT 


PIC 


♦PRINTING 




PICTURE 


PROCEDURE 




+QUEUE 


QUOTE 


QUOTES 


RANDOM 


♦REMAINDER 


♦REVERSE 


+RD 


♦REMOVAL 


♦REVERSED 


READ 


RENAMES 


REWIND 


^R SEC EH I VEE 


REPLAC ING 


REWRITE 


RECORD 


♦REPORT 


♦RF 


RECORDS 


♦REPORTING 


+RH 


REDEFINES 


♦REPORTS 


RIGHT 


REEL 


♦RERUN 


ROUNDED 


+REFERENCES 


♦RESERVE 


RUN 


RELATIVE 


♦RESET 




+RELEASE 


♦RETURN 




SAME 


SIZE 


+SUB-QUEUE-2 


+SD 


♦SORT 


+SUB-QUEUE-3 


+SEARCH 


♦SORT-MERGE 


SUBTRACT 


SECTION 


♦SOURCE 


♦SUM 


SECURITY 


SOURCE-COMPUTER 


♦SUPPRESS 


♦SEGMENT 


SPACE 


♦♦SWITCH-1 


♦SEGMENT-LIMIT 


SPACES 


♦♦SWITCH-2 


SELECT 


SPECIAL-NAMES 


/ 


+SEND 


STANDARD 


/ 


SENTENCE 


STANDARD- 1 


/ 


SEPARATE 


START 


♦♦SWITCH-8 


SEQUENCE 


STATUS 


♦SYMBOLIC 


SEQUENTIAL 


STOP 


SYNC 


SET 


♦STRING 


SYNCHRONIZED 


SIGN 


♦SUB-QUEUE- 1 
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r 



♦TAB 


♦TEXT 


TO 


♦TABLE 


THAN 


♦TOP 


TALLYING 


THROUGH 


TRAILIN 


+TAPE 


THRU 


+TYPE 


+TERMINAL 


TIME 




♦TERMINATE 


TIMES 




UNIT 


UNTIL 


USAGE 


♦UNLOCK 


UP 


USE 


+UNSTRING 


+UPON 


USING 


VALUE 


VALUES 


VARYING 


WHEN 


WORDS 


WRITE 


WITH 


WORKING-STORAGE 





ZERO 



ZEROES 



ZEROS 



> 
< 



♦ 
/ 
«* 
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GLOSSARY 



*■"' whined in accordance with their 

« ,-r, this appendix are defined in a rnnnL and may not have 
The terms in this .pp doCument describing COBOL and m 

__ m ..nin fl « "**" for other languages. 

the same meaning for ^^ refe rence 

These definitions are also i"*£ d jj re ° leu , e d prior to reading 
laterial or introductory *f«^ ^l For this reason, these 

the detailed ^^ost instanced brief and do not include 

definitions are, in most insxa 

detailed syntactical rules. 
( 

3i'.-ur.r.» »Hi- »-<• •» *■ >° ° perated upon ulthin a fiIe ' 

Actual Decimal Point: either of the dec :imal point 

ft. physical ;-Pr.«;J- - a ( ^: of the decimal point position 
characters period <• > or 
in a data item. 

Alphabet-Name: SPECIAL-NAMES paragraph °* * h * 

A user-defined word, in ™ name t o a specific character 

e Environment Division, that assign 
set and/or collating sequence. 

Alphabetic Character^ foll owing set of letters: A, B. C. 

A character^ that^elong^ ^ ^ ^ Qf P| Q , R , Bl T , 

Z, and the space. 
ZrZZ*\r C \r**Y~«^"-> Caract., set. 

Alt.rn.». "•»;'«;*; prim , r.crd kev -h... <™"" t5 ide " tm " 
A keu, other than tne P™'" 
Record within an indexed file. 

C Arithmetic Expression: ap ide ntifier or a numeric 

An arithmetic expression can identifiers and !»*"■" 

separated by an arithmetic opera 
enclosed in parentheses. 
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Arithmetic Operator: 

A single character that belongs to the following set: "** 

Character Meaning 

+ addition 

~ subtraction 

* multiplication — 

/ division 



Ascending Key: 
A key 



A key upon the values of which data is ordered starting with th 
lowest value of key up to the highest value of key in accordanc 
-with the rules for comparing data items. 



Assumed Decimal Point: 

A decimal point position which does not involve the existence of 
an actual character in a data item. The assumed decimal point has 
logical meaning but no physical representation. 

At End Condition: 

A condition caused during the execution of a READ statement for a 

sequentially accessed file. 

Block: 

A physical unit of data that it normally composed of one or more 

n»Ji5!! ■ r* CO T d *-. F ° r mm%% • tor «8« **!«*' « block may contain a 
portion of a logical record. The size of a block has no direct 

Hit ! P *° the ,iz * of the fil * within which the block is 

contained or to the size of the logical recordU) that are either 
continued within the block or that overlap the block. The term is 
synonymous with physical record. 

Called Program: 

A program which is the object of a CALL statement combined at 

oDject time with the calling program to produce a run unit. 

Calling Program: 

A program which executes a CALL to another program. 

Character: 

The basic indivisible unit of the language. 
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Character Position: 

A character position is the amount of physical storage required to 
store a single standard data format character described as USAGE 
is DISPLAY (one byte). 

Character-String: 

A sequence of contiguous characters which form a COBOL word, a 

literal, a PICTURE character-string, or a comment-entry. 

Class Condition: 

The proposition, for which a truth value can be determined, that 

the content of an item is wholly alphabetic or is wholly numeric. 

Clause: 

A clause is an ordered set of consecutive COBOL character-strings 

whose purpose is to specify an attribute of an entry. 

COBOL Character Set: 

The complete COBOL character set consists of the 51 characters 

listed below. 



Character 



Meaning 



0, 1, ... ,9 
A, B,. . . , Z 



« 
/ 



( 
) 
> 
< 



digit 

letter 

space (blank) 

plus sign 

minus sign (hyphen) 

asterisk 

stroke (virgule, slash) 

equal sign 

currency sign 

comma (decimal point) 

semicolon 

period (decimal point) 

quotation mark 

left parenthesis 

right parenthesis 

greater than symbol 

less than symbol 



c 



COBOL Word. (See Word) 



^&Zb 



Collating Sequence: 

The sequence in which the characters that are 

computer are ordered for purposes of comparing. 



acceptab le in 
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Column: 

A character position within a print line. The columns are numbered 

from 1, by 1, starting at the leftmost character position of the 

print line and extending to the rightmost position of the print 

line 



Combined Condition: 

A condition that is the result of connecting two or more 

conditions with the 'AND' or the 'OR' logical operator. 

Comment-Entry: 

An entry in the Identification Division that may be any 

combination of characters from the computer character set. 

Comment Line: 

A source program line represented by an asterisk in the indicator 
area of the line and any characters from the computer's character 
set in area A and area B of that line. The comment line serves 
only for documentation in a program. A special form of comment 
line represented by a stroke (/) in the indicator area of the line 
and any characters from the computer's character set in area A and 
area B of that line causes page ejection prior to printing the 
comment. 

Compi le-Time: 

The time at which a COBOL source program is translated, by a COBOL 

compiier, to a COBOL object program. 

Compiler Directing Statement: 

A statement, beginning with a compiler directing verb, that causes 

the compiler to take a specific action during compilation. 

Complex Condition: 

A condition in which one or more logical operators act upon one or 

more conditions. 



Computer-Name: 

A system-name that identifies the computer upon which the program 

is to be compiled or run (commentary only). 



>i«-V 
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Condition: 

A status of a program at execution time for which a truth value 
•^ can be determined. Where the term 'condition' ( cond i ti on-1, 
condition-2i ... ) appears in these language specifications in or 
in reference to 'condition' ( cond i tion-1, condition-2, ... ) of a 
general format. it is a conditional expression consisting of a 
simple condition. optionally parenthesized. consisting of the 
syntactically correct combination of simple conditions, logical 
operators, and parentheses. for which a truth value can be 
determined. 

Condition-Name: 

A user-defined word assigned to a specific value, set of values, 
or range of values, within the complete set of values that a 
conditional variable may possess; or the user-defined word 
assigned to a status of a system software switch. 

Condition-Name Condition: 

The proposition, for which a truth value can be determined, that 
the value of a conditional variable is a member of the set of 
values attributed to a condition-name associated with the 
conditional variable. 

'ygg Conditional Expression: 

y A simple condition or a complex condition specified in an IF or 

PERFORM statement. 

Conditional Statement: 

A conditional statement specifies that the truth value of a 
condition is to be determined and that the subsequent action of 
the object program is dependent on this truth value. 

Conditional Variable: 

A data item one or more values of which has a condition name 

assigned to it. 

Configuration Section: 

A section of the Environment Division that describes overall 

specifications of source and object computers. 



Ci 
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Connec t i ve: 

A reserved word that is used to: 

Associate a data-name, paragraph-name or condition-name with 
its qualifier. 

Link two or more operands written in a series. 
Form conditions (logical connectives). 

Contiguous Items: 

Items that are described by consecutive entries in the Data 
Division, and that bear a definite hierarchic relationship to each 
other. r 

Counter: 

A data item used for storing numbers or number representations in 
a manner that permits these numbers to be increased or decreased 
by the value of another number, or to be changed or reset to zero 
or to an arbitrary positive or negative value. 

Currency Sign: 

The character '%' of the COBOL character set. 

Currency Symbol: 

lD^tA CharaCter defined by the CURRENCY SIGN clause in the 

? riS™" NAMES para 9 ra P h - If n ° CURRENCY SIGN clause is present in 

r,,^:! SOurce P^gram, the currency symbol is identical to the 
currency sign. 

Current Record: 

The record which is available in the record area associated with 
the file. 



Current Record Pointer: 

A conceptual entity that is used in the selection of the next 
record. 



Data Clause: 

A clause that appears in a data description entry in the Data 
Division and provides information describing a particular 
attribute of a data item. 



te 
*•«». 



/* 



inwt 2®t© 



Data Description Entry: 

An entry in the Data Description that is composed of a 
*"' level-number followed by a data-name. if required, and then 
followed by a set of data clauses, as required. 

Data Item: 

A character or a set of contiguous characters (excluding in either 

case literals) defined as a unit of data by the COBOL program. 

Data-Name: 

A user-defined word that names a data item described in a data 
description entry in the Data Division. When used in the general 
formats, 'data-name' represents a word which can neither be 
subscripted* indexed, nor qualified unless specifically permitted 
by the rules for that format. 

Debugging Line: 

A debugging line is any line with 'D' in the indicator area of the 

line. 

Declaratives: 

A set of one or more special purpose sections. written at the 

'** beginning of the Procedure Division. the first of which is 
^ preceded by the key word DECLARATIVES and the last of which is 

followed by the key words END DECLARATIVES. A declarative is 

composed of a section header, followed by a USE compiler directing 

sentence, followed by a set of zero. one or more associated 
paragraphs. 

Declarative-Sentence: 

A compiler-directing sentence consisting of a single USE statement 

terminated by the separator period. 

Del imiter: 

A character or a sequence of contiguous characters that identify 
the end of a string of characters and separates that string of 
characters from the following string of characters. A delimiter is 
not part of the string of characters that it delimits. 

Digit Position: 

f _ A digit position is the amount of physical storage required to 

store a single digit. This amount may vary depending on the usage 

of the data item describing the digit position. 
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Di vi s ion: 

A set of zero, one or more sections of paragraphs, called the 
division body, that are formed and combined in accordance with a 
specific set of rules. There are four <4) divisions in a COBOL 
program: Identification, Environment, Data, and Procedure. 

Division Header: 

A combination of words followed by a period and a space that 

indicates the beginning of a division. The division headers are: 

IDENTIFICATION DIVISION. 

ENVIRONMENT DIVISION. 

DATA DIVISION. 

PROCEDURE DIVISION [USING data-name-1 Cdata-name-2D. . . 1. 

Dynamic Access: 

An access mode in which specific logical records can be obtained 

from or placed into a mass storage file in a non sequential manner 

(see Random Access) and obtained from a file in a sequential 

statement. 

Editing Character: 

A single character or fixed two-character combination belonging to * 
the following set: » 

Character Meaning 



B space 

zero 

+ plus 

- minus 

CR credit 

DB debit 

Z zero suppress 

* check protect 

* currency sign 

' comma (decimal point) 

period (decimal point) 

/ stroke (virgule, slash) 

Elementary Item: 

A data item that is described as not being further logically 
subdivided. 



End of Procedure Division: 

The physical position in a COBOL source program after which no 

further procedures appear. 
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Entry: 

Any descriptive set of consecutive clauses terminated by a period 

and written in the Identification Division* Environment Division, 

or Data Division of a COBOL source program. 

Environment Clause: 

A clause that appears as part of an Environment Division entry. 

Execution Time. (See Object Time) 

Extend Mode: 

The state of a file after execution of an OPEN statement, with the 
EXTEND phrase specified; for that file and before the execution of 
a CLOSE statement for that file. 

Figurative Constant: 

A compiler generated value referenced through the use of certain 

reserved words. 

'*•» File: 
^ A collection of records. 

File Clause: 

A clause that appears as part of the file description (FD) entries 

in the Data Division. 

FILE-CONTROL: 

The name of an Environment Division paragraph in which the data 

files for a given source program are declared. 

File Description Entry: 

An entry in the File Section of the Data Division that is composed 
of the level indicator FDi followed by a file-name, and then 
followed by a set of file clauses as required. 

Fi le-Name: 
(Z± A user-defined word that names a file described in a file 

description entry within the File Section of the Data Division 

File Organization: 

The permanent logical file structure established at the time that 

a file is created. 
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File Section: ^,. 

The section of the Data Division that contains file description 
entries together with their associated record descriptions. 

Format: 

A specific arrangement of a set of data. 

Group Item: 

A named contiguous set of elementary or group items 

I-O-CONTROL: 

The name of an Environment Division paragraph in which sharing of 

same areas by several data files is specified. 

I-O-Mode: 

The state of a file after execution of an OPEN statement, with the 

1-0 phrase specified, for that file and before the execution of a 

CLOSE statement for that file. 

Identifier: 

A data-name, followed as required, by the syntactically correct 
combination of qualifiers, subscripts, and indices necessary to "" 
make unique reference to a data item. v. 

Imperative Statement: 

A statement that begins with an imperative verb and specifies an 
unconditional action to be taken. An imperative statement may 
consist of a sequence of imperative statements. 

Index: 

A data i cem, the contents of which represent the identification of 
a particular element in a table. 

Index Data Item: 

A data item in which the value associated with an index-name can 
be stored. 

Index-Name: 

A user-defined word that names an index associated with a specific — 
table. 
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Indexed Data-Name: 

An identifier that is composed of a data-name, followed by one or 

more index-names enclosed in parentheses. 

Indexed File: 

A file with indexed organization. 

Indexed Organization: 

The permanent logical file structure in which each record is 

identified by the value of one fixed length key within that 

record. 



Input File: 

A file that is opened in the input mode. 

Input Mode: 

t^pi.t^k" ° f * file * fter execution of an OPEN statement, with the 
I"™! P hr f S ! s P" 1 * ied ' for th *t file and before the execution of 
a CLOSE statement for that file. 

Input-Output File: 

A file that is opened in the 1-0 mode. 

Input-Output Section: 

The- section of the Environment Division that names the files and 
the external media required by an object program and which 
provides information required for transmission and handling of 
data during execution of the object program. 

Integer: 

A numeric literal or a numeric data item that does not include anu 
character positions to the right of the assumed decimal point 
Where the term 'integer' appears in general formats, integer must 
not be a numeric data item, and must not be signed, nor zero, 
unless explicitly allowed by the rules of that format. 

Invalid Key Condition: 

A condition, at object time, caused when a specific value of the 
key associated with an indexed or relative file is determined to 
be invalid. 

Key: 

A data item which identifies the location of a record. 



n AAf" #"lK#n 



Key Word: 

A reserved word whose presence is required when the format in 

which the word appears is used in a source program. 

Level Indicator: 

Two alphabetic characters that identify a specific type of file or 

a position in hierarchy. 

Level-Number: 

A user-defined word which indicates the position of a data item in 
the hierarchical structure of a logical record or which indicates 
special properties of a data description entry. A level-number is 
expressed as a one- or two-digit number. Level-numbers in the 
range 1 through 49 indicate the position of a data item in the 
hierarchical structure of a logical record. Level-numbers in the 
range 1 through 9 may be written either as a single digit or as a 
zero followed by a significant digit. Level-numbers 77 and 89 
identify special properties of a data description entry. 

Library-Name: 

A user-defined word that names a COBOL library that is to be used 

by the compiler for a given source program compilation. 

Linkage Section: 

The section in the Data Division of the called program that 

describes the data items available from the calling program. These 

data items may be referred to by both the calling and called 

program. 

Literal: 

A character-string whose value is implied by the ordered set of 

characters comprising the string. 

Logical Operator: 

One of the reserved words AND. OR. or NOT. In the formation of a 
condition, both or neither of AND and OR can be used as logical 
connectives. NOT can be used for logical negation. 

Mass Storage: 

A storage medium on which data may be organized and maintained in 

both a sequential and nonsequential manner. 
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Mats Storage File: 
^ A collection of records that is assigned to a mass storage medium. 

Mnemonic— Name: 

A user-defined word that is associated in the Environment Division 
with a specified system-name. 

Native Character Set: 

The character set associated with the COBOL Compiler (ASCII). 

Native Collating Sequence: 
( The collating sequence associated with the native character set. 

Negated Combined Condition: 

The 'NOT' logical operator immediately followed by a parenthesized 

combined condition. 

Negated Simple Condition: 

Th * J ^? T ' lo S ical operator immediately followed by a simple 
condition. 

n»^ Next Executable Sentence: 

The next sentence to which control will be transferred after 
execution of the current statement is complete. 

Next Executable Statement: 

The next statement to which control will be transferred after 

execution of the current statement is complete. 

Next Record: 

The record which logically follows the current record of a file. 

Noncontiguous Items: 

Elementary data items, in the Working-Storage and Linkage 

Sections, which bear no hierarchic relationship to other data 

items. 

C- - Nonnumeric Item: 

A data item whose description permits its contents to be composed 
of any combination of characters taken from the computer's 
character set. Certain categories of nonnumeric items may be 
formed from more restricted character sets. 



*...«•• 
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Nonnumeric Literal: 

rhll!f r r ter " Strin9 bounded fc y quotation marks. The string of 
'rLrllf dUdf T y characteT - i" t^ computer's character 
set. To represent a single quotation mark character within a 
nonnumeric literal, two contiguous quotation marks must be used. 



Numeric Character: 

A 

3 



character that belongs to the following set of digits: 0, 1, 2, 

i ^' Oi Oi /» 8, *7, 



Numeric Item: 

A data item whose description restricts its contents to a value 

If'sionL ,H by C I aracteT ' s ch °**n *"« the digits '0' through ' 
if signed, the item may also contain a '+', '-', or ot Z' 
representation of an operational sign. 

Numeric Literal: 




*A 



OBJECT-COMPUTER: s- 

The name of an Environment Division paragraph in which the 
irSesc e ;ibed ir ° nment * Wlthi " WhiCh the ^'"t 9 pr Sgram n is W ex a ecute t 2r 

Object of Entry: 

?„*!!* + V + operand f , and reserved words, within a Data Division 
entry, that immediately follows the subject of the entry. 

Object Program: 

A set or group of executable instructions and other material 
Jm!1 B ™#. J inte [ act «**»• data to provide problem solutions. In 

this context, an object program is generally the result of the 

operation of a COBOL compiler on a source program. Where there is 

; a n !! r ° f ambiguity, the word 'program' alone may be used in 
place of the phrase 'object program'. 

Object Time: 

The time at which an object program is executed. 
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Open Mode: 

The state of a file after execution of an OPEN statement for that 
File and before the execution of a CLOSE statement for that file. 
The particular open mode is specified in the OPEN statement as 
either INPUT, OUTPUT, I-O, or EXTEND. 

Occurrence Number: 

The relative data item number in a table. 

Operand: 

Whereas the general definition of operand is 'that component which 
is operated upon', for the purposes of this publication, any 
lowercase word <or words) that appears in a statement or entry 
format may be considered to be an operand and, as such, is an 
implied reference to the data indicated by the operand. 

Operational Sign: 

An algebraic sign, associated with a numeric data item or a 

numeric literal, to indicate whether its value is positive or 

negative. 

Optional Word: 

A reserved word that is included in a specific format only to 
improve the readability of the language and whose presence is 
optional to the user when the format in which the word appears is 
used in a source program. 

Output File: 

A file that is opened in either the output mode or extend mode 

Output Mode: 

The state of a file after execution of an OPEN statement with the 
OUTPUT or EXTEND phrase specified, for that file and before the 
execution of a CLOSE statement for that file. 

Paragraph: 

In the Procedure Division, a paragraph-name followed by a period 
and a space and by zero, one, or more sentences. In the 
Identification and Environment Divisions, a paragraph header 
followed by zero, one, or more entries. 
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Paragraph Header: 

A reserved word, followed by a period and a space that indicates 
the beginning of a paragraph in the Identification and Environment 
Divisions. The permissible paragraph headers are: 

In the Identification Division: 

PROGRAM- ID. 

AUTHOR. 

INSTALLATION 

DATE-WRITTEN. 

SECURITY. 

In the Environment Division: 

SOURCE-COMFUTER. 

OBJECT-COMPUTER. 

SPECIAL-NAMES. 

FILE-CONTROL. 

I-O-CONTROL. 



Paragraph -Name: 

A user-defined word that identifies and begins a paragraph in the 
Procedure Division. 



Phrase: 

A phrase is an ordered set of one or more consecutive COBOL 

character-strings that form a portion of a COBOL procedural 

statement or of a C030L clause. 

Physical Record. (See Block) 

Prime Record Key: 

A key whose contents uniquely identify a record within an indexed 
file. 

Procedure: 

A paragraph or group of logically successive paragraphs, or a 
section or group of logically successive sections, within the 
Procedure Division. 

Procedure-Name: 

A user-defined word which is used to name a paragraph or section 
in the Procedure Division. It consists of a paragraph-name (which 
may be qualified), or a section-name. 
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Program-Name: 

A user-defined word that identifies a COBOL source program. 

Punctuation Character: 

A character that belongs to the following set: 

Character Meaning 



' comma 

' semicolon 

period 
" quotation mark 

< left parenthesis 

) right parenthesis 

space 
= equal sign 

Qualified Data-Name: 

An identifier that is composed of a data-name followed by one or 
more sets of either of the connectives OF and IN followed by a 
data-name qualifier. 

Qualifier: 

A data-name which is used in a reference together with another 
data name at a lower level in the same hierarchy. A section-name 
which is used in a reference together with a paragraph-name 
specified in that section. 

Random Access: 

An access mode in which the program-specified value of a key data 
item identifies the logical record that is obtained from, deleted 
from, or placed into a relative or indexed file. 

Record Area: 

A storage area allocated for the purpose of processing the record 

described in a record description entry in the File Section 

Record Description. (See Record Description Entry) 

Record Description Entry: 

The total set of data description entries associated with a 
particular record. 
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Record Key: 

The prime record key whose contents uniquely identify a record 
u'ithin an indexed file. 

Record-Name: 

A ussr-def ined word that names a record described in a record 

description entry in the Data Division. 

Reference Format: 

A format that provides a standard method for describing COBOL 
source programs. 

flatter. (See Relational Operator) 

Relaticn Character: 

A character that belongs to the following set: 

Character Meaning 

> greater than 

< less than 

- equal to 

Relation Condition: 

The proposition* for which a truth value can be determined, that 
the value of a data item has a specific relationship to the value 
of another data item. (See Relational Operator) 



PAGE 260 



Relational Operator: 

A reserved uiordi a relation character, a group of consecutive 

reserved words, or a group of consecutive reserved words 

relation characters used in the construction 

condition. The permissible operators and their 



and 
of a relation 
meanings are: 



Relational Operator 



Meaning 



IS CNOT3 GREATER THAN 

IS CNOT3 > 

IS CNOT3 LESS THAN 

IS [NOT] < 

IS CNOT3 EQUAL TO 

IS CNOT3 = 



Greater than or not 
greater than 

Less than or not 
less than 

Equal to or not 
equal to 



Relative File: 

A file with relative organization. 



Relative Key: 

A key whose contents identifies a logical record in a relative 
file. 



Relative Organization: 

The permanent logical file structure in which each record is 
uniquely identified by an integer value greater than zero, which 
specifies the record's logical ordinal position in the file 



Reserved Word: 

?™!;P B0L U ° rd s P ecified in the list of words which maj :,t used in 
COBOL source programs, but which must not appear in the 
as user-defined words or system-names. 



t» r grains 



Run Unit: 
A 



A set of one or more object programs which function at object 
time, as a unit to provide problem solutions. 



C- 



Section: 

A set of zero, one, or more paragraphs or entries, called a 
section body, the first of which is preceded by a section header 
Each section consists of the section header and the r^l-ted 
section body. " "" 
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Section Header: 

A combination of words followed by a period and a space that 
indicates the beginning of a section in the Environment, Data and 
Procedure Division. 

In the Environment and Data Divisions, a section header is 
composed of reserved words followed by a period and a space. The 
permissible section headers are: 

In the Environment Division: 

CONFIGURATION SECTION. 
INPUT-OUTPUT SECTION. 

In the Data Division: 

FILE SECTION. 
WORKING-STORAGE SECTION. 
LINKAGE SECTION. 

In the Procedure Division, a section header is composed of a 
section-name, followed by the reserved word SECTION, followed by a 
segment-number (optional), followed by a period and a space. 



y 

bt 



Section-Name: 

A user-defined word which names a section in the Procedure y *** / 
Di vi sion. 

Segment -Number: 

A user-defined word which classifies sections in the Procedure 
Division for purposes of segmentation. Segment-numbers may contain 
only the characters '0', '1',..., '9'. A segment-number may be 
expressed either as a one- or two-digit number. 

Sentence: 

A sequence of one or more statements, the last of which is 

terminated by a period followed by a space. 

Separator: 

A punctuation character used to delimit character-strings. 

Sequential Access: 

An access mode in which logical records are obtained from or 
placed into a file in a consecutive predecessor-to-successor 
logical record sequence determined by the order of records in the 
f i le. 
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Sequential File: 

A file with sequential organization. 

Sequential Organization: 

The permanent logical file structure in which a record is 
identified by a predecessor-successor relationship established 
when the record is placed into the file. 

Simple Condition: 

Any single condition chosen from the set: 

relation condition 
class condition 
condition-name condition 
switch-status condition 
(simple-condition) 

SOURCE-COMPUTER: 

The name of an Environment Division paragraph in which the 
computer environment* within which the source program is compiled* 
is described. 

Source Program: 

A syntactically correct set of COBOL statements beginning with an 
Identification Division and ending with the end of the Procedure 
Division. In contexts where there is no danger of ambiguitq, the 
word 'program' alone may be used in place of the phrase 'source 
program. ' 
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Special Character: 

A character that belcngs to the following set: 

Character Meaning 



plus sign 

minus sign 

asterisk 

/ stroke (virgule, slash) 

= equal sign 

* currency sign 

• comma (decimal point) 

semicolon 

period (decimal point) 
quotation mark 
left parenthesis 

> right parenthesis 

> greater than symbol 
< less than symbol 



( 



Special-Character Word: 

A reserved word which is an arithmetic operator or a relation 
character. 

SPECIAL-NAMES: ^ 

The name of an Environment Division paragraph in which 
switch-names are related to user-defined words. 



in a 



Standard Data Format: 

Ionr, C ° nCept US6d in describ ing the characteristics of data *,, a 
COBOL Data Division under the characteristics or properties of the 
data are expressed in a form oriented to the appearance of the 
data on a printed page of infinite length and breadth, rather than 
a form oriented to the manner in which the data is stored 
internally in the computer, or on a particular external medium. 

Statement: 

A syntactically valid combination of words and symbols written in 

the Procedure Division beginning with a verb. 

Subject of Entry: 

An operand or reserved word that appears immediately following the 

level indicator or the level-number in a Data Division entry. 

Subprogram. (See Called Program) 
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Subscript: 

An integer whose value identifies a particular element in a table. 

Subscripted Data-Name: 

An identifier that is composed of a data-name followed by one or 

more subscripts enclosed in parentheses. 

Switch-Status Condition: 

The proposition, for which a truth value can be determined that a 
switch, capable of being set to an 'on' or 'off' status, has been 
set to a specific status. 



System-Name: 

A COBOL word which is used to communicate with the operating 

environment. 



Table: 

A set of logically consecutive items of data that are defined in 

the Data Division by means of the OCCURS clause. 

Table Element: 

A data item that belongs to the set of repeated items comprising a 

table. 



Text-Name: 

A file access name that identifies library text. 



Truth Value: 

The representation of the result of the evaluation of a condition 

in terms of one of two values: 

true 
false 



Unary Operator: 

A plus <+) or a minus (-) sign, which precedes a variable or a 
left parenthesis in an arithmetic expression and which has the 
effect of multiplying the expression by +1 or -1 respectively. 



User-Defined Word: 

A COBOL word that must be supplied by the user to satisfy the 

format of a clause or statement. 
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Variable: 

A data item whose value may be changed by execution of the object 
program. A variable used in an arithmetic expression must be a 
numeric elementary item. 

Verb; 

A word that expresses an action to be taken by a COBOL compiler or 
object program. 

Word: 

A character-string of not more than 30 characters which forms a 

user-defined wordi a system-name, or a reserved word. 

Working-Storage Section: 

The section of the Data Division that describes working storage 
data items, composed either of noncontiguous items or of working 
storage records or of both. 

77-Level -Description-En try: 

A data desccription entry that describes a noncontiguous date item 

with the level-number 77. 
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APPENDIX D 
COMPOSITE LANGUAGE SKELETON 



C- 
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COMPOSITE LANGUAGE SKELETON 



This section contains the composite language skeleton of the 
American National Standard COBOL. It is intended to display 
complete and syntactically correct formats. 

For the general formats of the four divisions the leftmost margin 
is equivalent to margin A in a COBOL source program. The first 
indentation after the leftmost margin is equivalent to margin B in 
a COBOL source program. 

For tie general formats of the verbs and conditions the leftmost 
margin indicates the beginning of the format for a new COBOL verb. 
The first indentation after the leftmost margin indicates 
continuaticn of the format of the COBOL verb. 

The following is a summary of the formats shown on the following 
pages: 

""* Iu@ntifscstion o^vIs^ot^ q © s^ ©t* ss X » ot* st^s *t» 

- Environment Division general format 

- The three formats of the file control entry 

- Data Division general format 

- The three formats for a data description entry _, 

- The format for a field definition entry ^ 

- Procedure Division general format N - 

- General format of verbs listed in alphabetical order 

- General format for conditions 

- Formats for qualification, subscripting, indexing, and 

an identifier 

- General format for a COPY statement 
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RM/COBOL LANGUAGE SYNTAX 



The RM/COBOL language is based upon the ANSI X3. 23-1974 COBOL 
standard. Minor departures from that document are reflected m the 
syntax description which follows but are not separately noted 
Semantic rules are not changed. 

The description is in a condensed form of the standard COBOL 
syntax notation. In some cases separate formats are combined and 
general terms are employed for user names. 

System-names and implementation restrictions are: 

computer-name: User-defined word 
program-name: 8-character name 
switch-names: SWITCH-1, . . . , SWITCH-B 
device-types: PRINT 

INPUT 

OUTPUT 

INPUT-OUTPUT 

RANDOM 
external-file-name: One- to thirty-character name 



-** 
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IDENTIFICATION DIVISION GENERAL FORMAT 



IDENTIFICATION DIVISION. 
PROGRAM-ID. program-name. 
[AUTHOR, [comment-entry 1 ... ] 
[INSTALLATION. [comment-entry 3 ... 3 
[PATE-WRITTEN, [comment-entry] ... 3 
[SECURITY. [comment-entry] ... ] 
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c 



ENVIRONMENT DIVISION GENERAL FORMAT 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. computer-name. 
OBJECT-COMPUTER. computer-name 

t, MEMORY SIZE integer {WORDS >1 

{CHARACTERS} 
{MODULES > 



t, PROGRAM COLLATING SEQUENCE IS alphabet-name J. 

CSPECIAL-NAMES. Z, switch-name 

{ON STATUS IS condition-name-1 [, OFF STATUS IS cond i t i on-name-2]} 3 

{OFF STATUS IS cond i t ion-name-2 C, ON STATUS IS c ond i t i on-name-1 D>3 

t, alphabet-name IS {STANDARD-1>3 . . . 

{NATIVE > 



C, CURRENCY SIGN IS literal-ID 
I, DECIMAL-POINT IS COMMAD. 3 
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C INPUT-OUTPUT SECTION. 
FILE-CONTROL. 



■Cf i le-control-entry> .. 
CI-G-CONTROL. 



C; SAME AREA FOR fi 1 e-name-1 C, file-name-23 ...3... .11 
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FILE CONTROL ENTRY GENERAL FORMAT 



r«V 



Cl~ 



*»«»■ 



FORMAT 1 

SELECT file-name 



ASSIGN TO device-type {"external-f i le-name"} 

<data-name-l > 

Ci ORGANIZATION IS SEQUENTIAL} 
ti ACCESS MODE IS SEQUENTIAL] 
C; FILE STATUS IS data-name-23. 

FORMAT 2 

SELECT file-name 



ASSIGN TO RANDOM, -C"ex ternal-f i 1 e-name"> 
-Cdata-name-1 > 

i ORGANIZATION IS RELATIVE 



C; -"!?! MDDE IS < SEQUENTIAL £• RELATIVE KEY IS data -name-2D> D 

{{RANDOM > , RELATIVE KEY IS data-nane-2 > 
■C-CDYNAMIO -, 



C; FILE STATUS IS data-name-33. 
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FORMAT 3 

SELECT file-name 

ASSIGN TO RANDOM* {"e sc ternal— f i le-name"} 
{data-name-1 > 

i ORGANIZATION IS INDEXED 

I; ACCESS MODE IS -CSEQUENTI AL>D 

{RANDOM > 
{DYNAMIC > 

» RECORD KEY IS data-name-2 

C; ALTERNATE RECORD KEY IS data-name-3 CWITH DUPLICATES] 1. 

I; FILE STATUS IS data-name-43. 
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DATA DIVISION GENERAL FORMAT 

DATA DIVISION. 
CFILE SECTION. 
CFD file-name 

U BLOCK CONTAINS Cinteger-1 TO] integer-2 {RECORDS >3 

<CHARACTERS> 
Ci ™^ CONTAINS Cinteger-3 TOD integer-4 CHARACTERS: 

i LABEL {RECORD IS > <STANDARD> 
{RECORDS ARE> {OMITTED > 

Ci VALUE OF LABEL IS nonnumer i c-1 i teral-1 3 

L ' ™ *-f™ IS y data " nam e-l [, data-name-23 . J 
{RECORDS ARE> 

Crecord-description-entryD ... 3 ... 
CWORKING-STORAGE SECTION. 

C77-level-descTiption-entry] ... 3 
Crecord-description-entry 3 

[LINKAGE SECTION. 



C77 -l«vel-description-entry3 ••• 3 3 
Crecord-description-entry 3 
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I'ATA DESCRIPTION ENTRY GENERAL FORMAT 



FORMAT 1 



level-number {data-name-1 > 
{FILLER > 



Li REDEFINES data-name-23 



I; {PICTURE> IS character-string] 
<PJC > 

L; [USAGE 1SD {COMPUTATIONAL >] 

{C g M p y 

{COMPUTATIONAL-1} 
{COMP-1 > 



/*: 

{C0MPUTATI0NAL-3> ^" 



■CCOMP-3 > 

{DISPLAY > 
{INDEX > 



L; [SIGN IS3 TRAILING [SEPARATE CHARACTER] 3 



Li OCCURS {integer-1 TIMES > 
{integer-1 TO integer-2 TIMES DEPENDING ON data-name-3> 



[INDEXED BY index-name-1 t, index-name-23 ...3 3 



r 
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Ci 



ti {SYNCHRONIZED} CLEFT ] ] 
•csync > [RIGHT] 



Ci {JUSTIFIED} RIGHT] 
{JUST } 

Ci BLANK WHEN ZERO] 

Ci VALUE IS literal] . 



FORMAT 2 

66 data-name-li RENAMES data-name-2 [{THROUGH} data-name-3], 

{THRU } 



** FORMAT 3 



88 condition-name; {VALUE IS } 

{VALUES ARE} 



literal-1 [{THROUGH} literal-2] 
{THRU } 

C literal-3 C{THROUGH} literal-4] ] 
{THRU } 
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PROCEDURE DIVISON GENERAL FORMAT 



FORMAT 1 

PROCEDURE DIVISION [USING data-name-1 [, data-name-23 . .. ] 
[DECLARATIVES. 



■Csection-name SECTION [segment-number}, declarative-sentence 

rparagraph-name. [sentence] ... 3 . . . > 
END DECLARATIVES. 3 

<section-name SECTION [segment-number 3. 

[paragraph-name, [sentence] ... 3 > 

END PROGRAM. ft 



FORMAT 2 



PROCEDURE DIVISION [USING data-name-1 [, data-name-23 ... 3 

{paragraph-name, [sentence] ... > . . . 
END PROGRAM. 
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GENERAL FORMAT FOR VERBS 



ACCEPT {identifier-1 t, UNIT {identif ier-2}] 

-Cliteral-1 > 

L, LINE *identifier-3}] C. POSITION -Cident if ier-4>3 
<literal-2 > -Cliteral-3 > 

t. SIZE -Cidentifier-5}] C, PROMPT Cliteral-5]] 
-Cliteral-4 > 

C, ECHO} t, CONVERT] C, TAB] C, ERASE] C, NO BEEP] 

C <OFF>] C, ON EXCEPTION identifier^ imperative statement]}. 

ACCEPT identifier FROM <DATE> 

■CDAY } 
{TIME} 

^ ADD <identifier-l} [, i dent i f i er-2] ... TO i dent i f ier-m CROUNDED] 
flittral-1 > [, literal-2 ] — 

t; ON SIZE ERROR imperative-statement] 

ADD -Cidentifier-1}, iidentif ier-2> t, identif ier-31 
Uiteral-1 } -Cliteral-2 > C, literal-3 ] 

GIVING identifier-m CROUNDED] 

C; ON SIZE ERROR imperative-statement] 

ADD {CORRESPONDING} identifier-1 TO identifier-2 
•CCORR } 

£- CROUNDED] I. ON SIZE ERROR imperative-statement: 
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ALTER procedure-name-1 TO [PROCEED TOD procedure-name-2 

I, procedure-name-3 TO [PROCEED TOD procedure-name-4D . . 

CALL {identif ier-l> EUSING data-name-i I, data-name-2D . . . D 
-Cliteral-1 > 

CLOSE f?le-name-l C<REEL> CWITH NO REWINDD D 

{UNITD- 

WITH <NO REWIND> 

■CLOCK > 

C, -?ile-name-2 C{REEL> CWITH NO REWIND] D D ... 

{UNIT} 
WITH -CNO REWIND> 
■CLOCK > 

COMPUTE identifier-1 CROUNDEDD = arithmetic-expression sjfc. 



t; ON SIZE ERROR imperati ve-statementD 
DELETE file-name RECORD C; INVALID KEY imperati ve-statementD 



DISPLAY {{identif ier-l> t, UNIT -Cidentif ier-2> D 
-Cliteral-1 > -Cliteral-2 > 

C, LINE {identifier-3>DC, POSITION -Ci denti f ier-4>D 
-Cliteral-3 > -Cliteral-4 > 

[, SIZE {identifier-5>DC, BEEPDC, ERASED 
{lit era 1-5 > 

I, CHXOHHE. BLINKDC, REVERSED} ... 



{LOW > 
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DIVIDE <identifier-l> INTO identifier-2 [ROUNDED] 
-Cliteral-1 > 

C; ON SIZE ERROR imperative-statement] 

DIVIDE {identifier-1} INTO <i denti f ier-2> GIVING identifier-3 
-Cliteral-1 > -Cliteral-2 > 

EROUNDEDD C; ON SIZE ERROR imperative-statement] 

DIVIDE <identifier-l> BY tidentif ier-2> GIVING identifier-3 [ROUNDED] 
<literal-l > — -Cliteral-2 > 

C; ON SIZE ERROR imperative-statement] 
EXIT [PROGRAM]. 
GO TO procedure-name-1 

GO TO procedure-name-1 Z. procedure-name-2] ... , procedure-name-n 
DEPENDING ON identifier 



IF tondition; <statement-l > <: ELSE statement-2 > 

{NEXT SENTENCE} -C; ELSE NEXT SENTENCE} 
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INSPECT identifier-1 



[TALLYING i d ent i f i er-2 FOR <<ALL > -Ci dent i f i er-3>> 

-Cliteral-1 >> 

{{LEADING} 



CHARACTERS 



[{BEFORE} INITIAL <i dent i f i er-4> : 1 

-Cliteral-2 > 

{AFTER > 



[REPLACING {{ALL > { i dent i f i er-5}} BY <i dent i f i er-6> 

-Cliteral-3 > — •Cliteral-4 > 

{{LEADING} > 



{{FIRST > } 

{ CHARACTERS > 



C<BEFORE> INITIAL <i dent i f ier-7> 1 3 

-Cliteral-5 } 

■CAFTER > 



Mi... 



NOTE: .The TALLYING option, the REPLACING option, or both 
options must be selected. 
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MOVE {identif ier-l> TO identifier-2 C» identif ier-3] 
-Cliteral > — 

MOVE {CORRESPONDING} identifier-1 TO identifier-2 
{CORR > 



MULTIPLY {identifier-1} BY identifier-2 CROUNDED] 
{literal-1 } — 

C; ON SIZE ERROR imperative-statement 3 



MULTIPLY {identif ier-l> BY {identif ier-2> GIVING identifier-3 
{literal-1 > — {literal-2 > 

[ROUNDED] t; ON SIZE ERROR imperative-statement 3 

OPEN {{INPUT file-name-1 CWITH NO REWIND]} 
C, file-name-2 CWITH NO REWIND]... 



{OUTPUT file-name-3 CWITH NO REWIND]} 



y C, file-name-4 CWITH NO REWIND]]. 



{1-0 f ile-name-5>Ci f i le-name-63. . . 
{EXTEND f ile-name-7>C, f i le-name-B]. . . }. . 
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PERFORM procedure-name-1 C-CTHROUGH> procedure-name-2] 

•CTHRU > 

^ F ° RK procedure - name - 1 C-CTHROUGH> procedure-name-2] 

-CTHRU > 

{identif ier-l> TIMES 
■Cliteral-1 > 

P ^ R ^° R M Procedure-name-1 C-CTHROUGH> procedure-name-2] 

{THRU > 
UNTIL condition-1 



PERFORM procedure-name-1 C<THROUGH> procedure-name-2] 

■CTHRU > 



VARYING -Cidentif ier-2> FROM <i dent if ier-3> 
<index-name-l> -Cinde x-name-2> 



BY -Cidentifier-4> UNTIL condition-1 
— -Cliteral-3 > 

CAFTER <identifier-5> FROM <ident if ier-6> 

{index-name-3> •Cindex-name-4> 

"Cliteral-3 > 

BY <identif ier-7> UNTIL condition-2 

— -Cliteral-4 > 

CAFTER {identif ier-8> FROM {identif ier-9> 

-Cindex-name-5} {index-name-6> 

■Cliteral-5 > 

BY -Cidentifier-10} UNTIL condition-3 D ] 

— <literal-6 > 



{literal-1 > /"* 
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READ file-name RECORD CINTO identifier] 
C; AT END imperative-statement] 

READ file-name CNEXT] RECORD CWITH NO LOCK] CINTO identifier] 
C; AT END imperative-statement] 

READ file-name RECORD CWITH NO LOCK] CINTO identifier] 
t; KEY IS data-name] 
I; INVALID KEY imperative-statement] 

REWRITE record-name CFROM identifier] 

Z> INVALID KEY imperative-statement] 

SET -Cidentifier-1 C, identif ier-2] ...> TO <i denti f ier-3> 
-Cindex-name-1 t, index-name-2] . . . > — <index-name-3> 

■Cinteger-1 > 

<«i SET index-name-4 C# index-name-5] ... -CUP BY > -Cidenti f ier-4> 

— — {integer-2 > 
■CDOWN BY> 



y 



C- 
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START file-name CKEY -CIS EQUAL TO > data-name] 

■CIS = > 

•CIS GREATER THAN > 



•CIS > > 

•CIS NOT LESS THAN} 



■CIS NOT < > 

C; INVALID KEY imperative-statement 1 

STOP -CRUN > 

"(literal > 

SUBTRACT -Cidentifier-1> L, ident i f i er-2D ... FROM identifier-m 
-Uiteral-1 > C, literal-2 1 

ERQUNDED3 C> ON SIZE ERROR ifnperati ve — statement 3 

SUBTRACT -Cidentifier-1> Z, i denti f i er-23 ... FROM <i denti f i er-m> 
{literal-1 >C, literal-2 ] -Cliteral-m > 

GIVING identifier-n CROUNDEDD 

t; ON SIZE ERROR imperative-statement 1 

SUBTRACT {CORRESPONDING} identifier-1 FROM identifier-2 CROUNDFDD 
■CCORR > 

l> ON SIZE ERROR imperative-statement] 
UNLOCK file-name-1 RECORD 
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C: 



USE AFTER STANDARD {EXCEPTION} 

{ERROR > 
PROCEDURE ON <f ile-name-1 C, f i le-name-23 ...} 
■C INPUT 

{OUTPUT > 

•CI-0 y 

{EXTEND 



WRITE record-name [FROM ident if ier-U 



{BEFORE> ADVANCING {{i denti f ier-2> -CLINE » 

<-Cinteger > {LINES>> 
{AFTER > { PAGE } 



WRITE record-name CFROM identifier] 

C; INVALID KEY imperative-statement 1 



y 



y 
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GENERAL FORMAT FOR CONDITIONS 



RELATION CONDITION: 



■Ci denti f ier-1 

-Cliteral-1 

•Cindex-name-1 



> -CIS CNOTD GREATER THAN> <i denti fier-2 
y -enteral -2 

> {IS CNOT] LESS THAN > -C inde x-name-2 

■CIS CNOTD EQUAL TO > 

■CIS CNOTD > > 

■CIS [NOT] < > 

■CIS CNOTD ■ > 



> 
> 
> 



CLASS CONDITION: 

identifier IS CNOTD {NUMERIC > 

■CALPHABETIO 



CONDITION-NAME CONDITION: 



condition-name 



SWITCH-STATUS CONDITION: 



condition-name 



NEGATED SIMPLE CONDITION: 



NOT simple-condition 
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COMBINED CONDITION: 

condition <<AND> condition} 
■COR > 



**s 



CL 
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MISCELLANEOUS FORMATS 



QUALIFICATION: 



■Cdata-name-1 > C-COF> data-name-2] 

•Ccondi tion-name} — 

■CIN> 



paragraph-name C-COF> section-name] 

<IN> 

SUBSCRIPTING: 



■Cdata-name > (subscript-1 L, subscript-2 t, sub scrip t-33 1 ) 

■Ccondi t ion-name > 

INDEXING: 



•Cdata-name > < -Cindex-name-1 C<+> literal-23> 

<condition-name> -Cliteral-1 <-> > 

C ■Cindex-name-2C-C+> literal-43> 
•Cliteral-3 <-> > 

I. -Cindex-name-3 C-C+} literal-63 > 1 1 ) 
■Cliteral-5 <-> > 
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r 



IDENTIFIER: 

FORMAT 1 

data-name-1 C<OF> data-name-23 . . . 
•CIN> 

£<«ubscript-i C, subscript-2 C, subscript-33 3 ) 3 

FORMAT 2 

data-name-1 C-COF> data-name-23 ... C( <index-name-l C-C+> literal-23 

■Cliteral-1 {-} 

-CIN> 

C» -Cindex-name-2 C<+> literal-43> 
{literal-3 <-> > 

t> <index-name-3 C<+> literal-63> 33)3 
■Cliteral-S <-> > 
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GENERAL FORMAT FOR COPY STATEMENT 



COPY ';ext-name 
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COBOL LEVEL OF IMPLEMENTATION 



Function Module 



Nucleus 

Table Handling 

Sequential I/O 

Relative I/O 

Indexed I/O 

Sort-Merge 

Report Writer 

Segmentation 

Library 

Debug 

Inter-program Communication 
Communication 



Imp lementation 



Level 


2. 




Level 


1+. 




Level 


2. 




Level 


2. 




Level 


2. 




Null. 






Null. 






Level 


1. 




Level 


1. 




N/S. 


Condi 


tior 



compile and 
execution time interactive debugger. 
Level 1. 

Modified ACCEPT and DISPLAY for 
terminal communication. 



ANSI COBOL X3. 23 1974 



c 



! MODULE 


i FEDERAL INFORMATION 

i PROCESSING STANDARD (FIPS) 


! RM ! 
! COBOL! 


\ 

! HIGH 


1 HIGH 

! INTERMEDIATE 


LOW 
i INTERMEDIATE 


! LOW 


! NUCLEUS 

.' TA3LE HANDLING 

! SEQUENTIAL I/O 

! RELATIVE I/O 

! INDEXED I/O 

! SORT-MERGE 

.' REPORT WRITER 

! SEGMENTATION i 

! LIBRARY j 

! DE3UG | 

! INTER-PROGRAM 1 

! COMMUNICATION ! 

i COMMUNICATION 


! 2 

2 
2 . 

B. 

2 
2 

2 

2 . 

2 1 

1 

2 ! 

2 : 


i 2 
! 2 

2 

2 

1 

1 
1 
2 i 

2 : 
2 : 


! 1 

: l 
1 

1 

i 

1 
1 

i : 


1 
1 
1 


: 2 : 
1+ { 

2 ! 
2 ! 
2 ' 

i : 
l ; 

N/S i 

1+ ! 
N/S ! 



N/S = Nonstandard 
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EXTENSIONS BEYOND STATED LEVELS 



Level 2 Nucleus (2 NUC ) : 

- Data description includes a USAGE type of COMPUTATIONAL-1 or 
COMP-1 for describing single word two's complement signed 
binary data (nonstandard). 

- Data description includes a USAGE type of COMPUTATIONAL-3 or 
COMP-3 for describing packed decimal data (nonstandard) 

- The ACCEPT statement allows multiple operands (nonstandard). 

- The ACCEPT statement includes syntsr for specifying CRT 
control information (nonstandard). 

- The DISPLAY statement includes syntax for specifying CRT 
control information (nonstandard). 

Level 1 Table Handling (1 TBL): 

- Variable group size (OCCURS DEPENDING). 

Level 2 Sequential 1-0 (2 SEQ): 

- The file control SELECT clause allows specification of the 
external file name as a literal or data item (nonstandard). 

- The READ statement includes the WITH NO LOCK option 
(nonstandard ). 

- The UNLOCK statement is included (nonstandard). 

Level 2 Relative 1-0 (2 RED: 

- The file control SELECT clause allows specification of the 
external file name as a literal or data item (nonstandard). 

- The READ statement includes the WITH NO LOCK option 
(nonstandard ). 

- The UNLOCK statement is included, (nonstandard). 
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Level 2 Indexed 1-0 (2 INX): 

*^ 

- The file control SELECT clause allows specification of the 
external file name as a literal or data item (nonstandard) 

- The READ statement includes the WITH NO LCCK option 
(nonstandard ). 

- The UNLOCK statement is included (nonstandard). 

Level 1 Debug (1 DEB): 

- An interactive execution time debug facility is provided 
( (nonstandard). 

Level 1 Inter-Program Communication (1 IPC): 

- The CALL statement allows literals in USING phrase 
(nonstandard ). 

- The CALL statement allows identifiers in the USING phrase to 
bt described with level number 01 through 49 and level 

*-*. number 77 (nonstandard). 

* - The CALL statement supports specification of a variable 

program name as identifier-1 (level 2 IPC). 

Level 1 Communication (1 COM): 

- ACCEPT and DISPLAY allow specification of complete screen 
format in the Procedure Division (nonstandard) 



C- 
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EXCEPTIONS TO STATED LEVELS 



Level 2 Nucleus (2 NUC ) : 

- DATE-COMPILED is not supported in the Identification 
Di vi son. 

- In data description the SIGN clause cannot specify LEADING 
for the operational sign; omission of the SEPARATE phrase 
has no effect, all operational signs are separate trailing 
characters. 

- Alphabet-name IS literal or imp lementor-name may not be 
specified in SPECIAL-NAMES paragraph. 

-- Multiple results are not supported in arithmetic statements. 

- REMAINDER is not supported in DIVIDE statement. 

- A procedure-name is required in GO TO statements. 

- INSPECT data items are restricted to single character 

- Compound TALLYING and REPLACING clauses in the INSPECT ^ 
statement are not supported. !** 

- When used in the Procedure Division* the numeric literal in 
•the ALL form of a figurative constant may not contain more 

than one character. 

- Arithmetic expressions may be used only in COMPUTE 
statements. 

- Exponentiation to a noninteger power is not supported. 

- Sign conditions are not supported. 

- Abbreviated combined relation conditions are not supported. 

- The STRING and UNSTRING statements are not supported. 
Level 2 Sequential 1-0 (2 SEQ): 

- OPTIONAL and RESERVE may not be specified in the SELECT 
clause. 

- RERUN, SAME AREA or MULTIPLE FILE clauses are not supported 
in I-O-CONTROL. 
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CODE-SET and LINAGE clauses may not be specified in a file 
description entry. 

- The mnemonic-name and EOF options of the WRITE statement are 
not supported. 

- The REVERSED option of the OPEN statement is not supported 

- The FOR REMOVAL option of the CLOSE statement is not 
supported. 

Level 2 Relative 1-0 (2 RED: 
( The RESERVE clause of the SELECT entry is not supported 

" in R I-0-cSNT R SL EA " MULTIPLE FILE ClauSes a ™ n^ supported 
" ni«n ^^ DF ClaUSe in an FD entT> y «""st not specify a data 

l» <s in tr . 

Level 2 Indexed 1-0 (2 INX): 

- The RESERVE clause of the SELECT entry is not supported. 

- RERUN, SAME AREA or MULTIPLE FILE clauses are not suooorted 
in I-O-CONTROL. supported 

Level 1 Segmentation (1 SEQ): 

- All independent segments must physically follow the fixed 
permanent segments in the source program. 

Level 1 Library (1 LIB): 

- A copy sentence must be the last entry in area B of a source 
record. 



CI 



Level 1 inter-Program Communication (1 IPC) 

A CALLed program is automatic 
of the EXIT PROGRAM statement 



" ?. C i!:-*£w?£ Hi;!L!" ■V*™ticall« cancelled upon execution 
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